ABOUT:/newwindow ABOUT |/display > ABOUT ___.oO WiLdeR for Pirch 32Bit 3.0 POWER Edition Oo.___ |/display > ABOUT _______ Writed by WildHoney ________ |/display > ABOUT __________THE POWER OF Wilder on Pirch____________
AF1:/me running WiLdeR« for Pirch 32Bit 4.0 MEGA version _--^^--_ ] by 4,8WILDHONEY get on http://www.redfm.com/wildhoney/programs
BASLIK:/set title Y|/set title eY|/set title NeY|/set title oNeY|/set title HoNeY|/set title dHoNeY|/set title LdHoNeY|/set title iLdHoNeY|/set title WiLdHoNeY|/set title WiLdHoNeY|/set title 7 WiLdHoNeY|/set title 97 WiLdHoNeY|/set title 997 WiLdHoNeY|/set title 1997 WiLdHoNeY|/set title 1997 WiLdHoNeY|/set title ) 1997 WiLdHoNeY|/set title c) 1997 WiLdHoNeY|/set title (c) 1997 WiLdHoNeY|/set title (c) 1997 WiLdHoNeY|/set title 0 (c) 1997 WiLdHoNeY|/set title .0 (c) 1997 WiLdHoNeY|/set title 3.0 (c) 1997 WiLdHoNeY|/set title 3.0 (c) 1997 WiLdHoNeY|/set title n 3.0 (c) 1997 WiLdHoNeY|/set title On 3.0 (c) 1997 WiLdHoNeY|/set title iOn 3.0 (c) 1997 WiLdHoNeY|/set title TiOn 3.0 (c) 1997 WiLdHoNeY|/set title iTiOn 3.0 (c) 1997 WiLdHoNeY|/set title diTiOn 3.0 (c) 1997 WiLdHoNeY|/set title EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title R EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title eR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title WeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title oWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title Y ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title eY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title NeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title oNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title HoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title dHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title LdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title iLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title y WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title S By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title tS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title PtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title iPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title RiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title cRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title r ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title Er ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title dEr ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title LdEr ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title iLdEr ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title WiLdEr ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title WiLdEr ScRiPtS By WiLdHoNeY ,PoWeR EdiTiOn 3.0 (c) 1997 WiLdHoNeY|/set title
ICMP:/newwindow WARNING|/display > WARNING THE ICMP PING FLOOD IS VERY POWERFULL|/display > BE CAREFULL WITH SLOW CONNECTION YOU COULD TO FLOOD YOUR SELF|/timer wrn 1 10 /close WARNING |/timer icmf 1 12 /icmpf
ICMPF:/run ping.exe -l $$?="Enter PacketSize: ( Recommended at 20000 ) " -t $$?="Enter IP to Flood:" |/display > CONTROL ICMP FLOOD STARTED
[BYE]:{Chooses a random line from a text file and displays it |as 'goodbye message' when you log off..|You need a 'bye' alias which says something like /runscript [bye]|and when you want to sign off, just type /bye|Specify filename of the textfile below|1997 Ove Nipen, (oven@bgnett.no)|}|begin| $filename := 'c:\wilder\text\bye.txt';| if fileexists($filename) then| begin| if fileread($filename,0,$bye) then| command('/quit',' ',$bye)| else| writeln('failed to read line');| end| else| writeln('file (',$filename,') does not exist');|end;
[CALLBACK]:{Numeric CallBack Tracker v1.6 final -- wolff@j51.com }|{ used chooks gui desinger. }|{ to start -- /runscript [callback] start }|{ Options --| | -- Clear option | -- Status Bar| -- CheckBox For NonNumeric Callbacks| -- show/hide option to hide the window or bring it back.| (/runscript [callback] hide / show)|Have fun..|Shane Wolff aka Bind (wolff@j51.com)|}|$pp := $pirchpath;|$clist := $pp+'callback.lst';|$cmd := $1;|$cmd2 := $2;|$ni := $nick;|$ti := $time;|if $cmd = 'start' then| begin| Design:=CreateWindow('CallBack Tracker [not tracking]',0,0,420,390);| setwindowattr(Design,12,2);| Panel1:=CreateGadget(Design,10,0,0,331,35); | SetWindowAttr(Panel1,1,12632256); | Label2:=CreateGadget(Design,10,0,0,43,15);| SetWindowText(Label2,'CallBack Tracker 1.6 by bind(wolff@j51.com)');| SetWindowAttr(Label2,5,0);| TextScroller1:=CreateGadget(Design,7,0,0,95,50); | setwindowattr(TextScroller1,3,2); | setwindowattr(TextScroller1,3,3);| setwindowattr(TextScroller1,3,4);| setwindowattr(TextScroller1,3,5); | Setwindowattr(Label2,3,2); | setwindowattr(Panel1,3,1);| Label1:=CreateGadget(Panel1,1,5,9,10,13);| SetWindowText(Label1,'CallBack');| Edit1:=CreateGadget(Panel1,8,54,6,160,22);| { ACK!!!! LoadFromFile Isnt Working For comboboxes!!! }| { this is just a list of "test" callbacks.. }| sup:=ListAppend(Edit1,'372 (MOTD)');| sup:=ListAppend(Edit1,'303 (ISON)');| sup:=ListAppend(Edit1,'PRIVMSG (Message)');| check1:=creategadget(Panel1,5,223,6,15,22); | SetWindowText(Edit1,'callback');| Button1:=CreateGadget(Panel1,4,245,6,75,22);| SetWindowText(Button1,'Track');| Button2:=CreateGadget(Panel1,4,325,6,75,22);| SetWindowText(Button2,'Clear');| setevent(Button2,1,'/runscript [callback] tclear');| setevent(Button1,1,'/runscript [callback] tstart');| setevent(Design,1,'/runscript [callback] tdie');| halt;| end;|if $cmd = 'hide' then begin| setwindowattr(Design,7,0);| writeln('CallBack Tracker Hidden /runscript [callback] show to restore');| halt;| end;|if $cmd = 'show' then begin| setwindowattr(Design,7,1);| halt;| end;|if $cmd = 'tstart' then begin | blahA:=0;blahA := getwindowattr(check1,8);| $cb9:=getwindowtext(Edit1);| $cb9:=StrToken($cb9);| SetWindowText(Button1,'Stop');| setevent(Button1,1,'/runscript [callback] tend'); | command('/callback ',$cb9,' [callback]');| SetWindowText(Design,'CallBack Tracker [tracking '+$cb9+']');| SetWindowText(Label2,'Started Tracking '+$cb9);| halt; | end;|if $cmd = 'tend' then begin | command('/callback -d ',$cb9,' [callback]');| SetWindowText(Button1,'Track');| setevent(Button1,1,'/runscript [callback] tstart');| SetWindowText(Design,'CallBack Tracker [not tracking]');| SetWindowText(Label2,'Stoped Tracking '+$cb9);| halt;| end;|if $cmd = 'tdie' then begin | command('/callback -d ',$cb9,' [callback]');| halt;| end;|if $cmd = 'tclear' then begin | listclear(TextScroller1);| setwindowtext(Panel2,'inactive');| SetWindowText(Label2,'Cleared Work Area');| halt;| end;|if $cmd2 = $ni then begin | $data:=*4;| if blahA = 1 then begin | $data:=*1;| end;| SetWindowText(Panel2,$ti); | wherd:=ListAppend(TextScroller1,$data);| scriptresult:=1;| halt; | end;|writeln('Error... Invalid cmd ',$cmd);|scriptresult:=1;
[CAPKICK]:{Caplock kick made by Dot and bbb for Sunscript October23 1996}|{Required Lines in your default events.ini level}|{ ON TEXT:*:#:/runscript [capkick] $nick $me # *1 }|{ ON ACTION:*:#:/runscript [capkick] $nick $me # *1 }|{ Add this to aliases }|{ KICKOP /kick $chan2 $nick3}|{ SunScript PILs can be found at }|{http://www.adorable.com/sunscript}|$letter := '7';|$message := 'No Caps!WiLdEr ScRiPtS';|$nono := *4;|$notme := $1;|$dot := $2;|$chan := $3;|letter := strtoint($letter);|if isop($chan,$dot) then|begin|if strlen($nono) <= letter then|halt|else if isop($chan,$notme) then|begin|if $nono = strupper($nono) then|command('/display',' > ',$activewin,' ',\9,' ',$notme,' ','is a op in ',$chan,' ','Caplock kick ignored if you would like to kick',' ',$notme,' ','anyways just type "/kickop"',' ',\9,);|command('/define nick3=',$notme,);|command('/define chan2=',$chan,);|end|else|if $nono = strupper($nono) then|command('/kick',' ',$chan,' ',$notme,' ',$message)|end;
[CLONE]:{|--------------------------------------------------------------------------------------------------------------------------------------------------------------------------|Clone Naming PIL written by Altr (#russia, #russian, #anyway on DALnet) version 1. |Original idea by D Stevens (samis). Yeah it was good too. But it flooded you if you have 10+ users in channel.|Dont forget to try irc.dal.net|---------------------------------------------------------------------------------------------------------------------------------------------------------------------------|names the person doing the cloning|required event is|ON CLONES:2:#:/runscript [CLONE] $nick $clonemask #|}|$all := *2; |if flag <> 1 then |begin| $cnick := $1;| $cloneadd := $2;| strdel($cloneadd,1,4);| $chan := $3;| $clonemsg := \2 + 'I know ' + $cnick + ' from' + ' ' + $cloneadd + ' has a clones: ';|command('/define clone=',$cloneadd,);|command('/define clnick=',$cnick,);| command('/display > ',$activewin,' ',\16,'13CloneList 14for4 ', $cnick,' 3from 12',$cloneadd,' 2in6 ', $chan, ':');| command('/callback 352 [CLONE]');| command('/callback 315 [CLONE]');| flag := 1;| command('/who ',$cloneadd);|end;|$code := strtoken($all);|if $code = '352' then|begin| $clonetmp := strtoken($all);| $clonetmp := strtoken($all);| $clonename := '(' + strtoken($all) + '@) ';| $clonetmp := strtoken($all);| $cloneserver := strtoken($all);| $clonenick := strtoken($all);| $clonetmp := strtoken ($all);| $clonehops := strtoken ($all);| $clonename := $clonenick + $clonename;| if isop($chan,$clonenick) then| $clonename := '@' + $clonename;| $clonemsg := $clonemsg + $clonename;| command('/display > ',$activewin,' ',\16,'4 ',$clonename,'2is3 ',$all, ' 1on2 ' , $cloneserver,' 1 ',$clonehops);| halt;|end;|if $code = '315' then|begin| if isop($chan,$me) then| { command('/display $activewin,' ',\2, $clonemsg); }| command('/display > ',$activewin,' ',\16,'12End of CloneList for ', $cnick);| command('/display > ',$activewin,' -');| command('/callback -d 315');| command('/callback -d 352');| flag := 0;| halt;|end;
[CLONE]:{|----------------------------------------------------------------------------------|Clone Naming PIL written by D Stevens (samis) version 2|----------------------------------------------------------------------------------|Modified to fit ╤ΩMΩº╧º Script|names the person doing the cloning|required event is|ON CLONES:*:#:/runscript [CLONE] $nick $clonemask #|have fun and don't say you wrote this pil.....it's my idea.......|if you use a diff chan bot than X change the 27th line to the other bot......|}|command('/callback 311 [CLONE]');|$first := $1;|$second := $2;|$third := $3;|$all := *2; |if flag <> 1 then |begin| $cnick := $first;| strdel($second,1,4);| $cloneadd := $second;| $chan := $third;| flag := 1;|end;|usercount := strtoint($members); |for i := 1 to usercount do|begin| $who := nicklist($audience,i);| if ($who <> 'HeúúíonÖ') and ($who <> 'W') then | begin| end;|end;|$code := strtoken($all);|if $code = '311' then|begin| $mynick := strtoken($all);| $whonick := strtoken($all);| $is := strtoken($all);| $ps := strtoken($all);| $whoadd := $ps;| if $whoadd = $cloneadd then|begin| if $cnick <> $whonick then| begin| command('/display > CONTROL',$serve,' ',\4,' ',$time,' - ',\2,$cnick,\2,' is a clone of ',\2,$whonick,\2,' from ',\2,'@',$cloneadd);| command($serve,' ',\4,' ',$time,' - ',\2,$cnick,\2,' is a clone of ',\2,$whonick,\2,' from ',\2,'@',$cloneadd);| command('/callback -d 311');| flag := 0;| halt;| end;|end;|end;
[CLONE1]:{|--------------------------------------------------------------------------------------------------------------------------------------------------------------------------|Clone Naming PIL written by Altr (#russia, #russian, #anyway on DALnet) version 1. |Original idea by D Stevens (samis). Yeah it was good too. But it flooded you if you have 10+ users in channel.|Dont forget to try irc.dal.net|---------------------------------------------------------------------------------------------------------------------------------------------------------------------------|names the person doing the cloning|required event is|ON CLONES:2:#:/runscript [CLONE] $nick $clonemask #|}|$all := *2; |if flag <> 1 then |begin| $cnick := $1;| $cloneadd := $2;| strdel($cloneadd,1,4);| $chan := $3;| $clonemsg := \2 + 'I know ' + $cnick + ' from' + ' ' + $cloneadd + ' has a clones: ';| command('/display > ',$server,' ',\16,'CloneList for ', $cnick,' from ',$cloneadd,' in ', $chan, ':');| command('/callback 352 [CLONE1]');| command('/callback 315 [CLONE1]');| flag := 1;| command('/who ',$cloneadd);|end;|$code := strtoken($all);|if $code = '352' then|begin| $clonetmp := strtoken($all);| $clonetmp := strtoken($all);| $clonename := '(' + strtoken($all) + '@) ';| $clonetmp := strtoken($all);| $cloneserver := strtoken($all);| $clonenick := strtoken($all);| $clonetmp := strtoken ($all);| $clonehops := strtoken ($all);| $clonename := $clonenick + $clonename;| if isop($chan,$clonenick) then| $clonename := '@' + $clonename;| $clonemsg := $clonemsg + $clonename;| command('/display > ',$server,' ',\16,$clonename,'is ',$all, ' on ' , $cloneserver,' ',$clonehops);| halt;|end;|if $code = '315' then|begin| if isop($chan,$me) then| command('/opnotice ',$chan,' ',\2, $clonemsg);| command('/display > ',$server,' ',\16,'End of CloneList for ', $cnick);| command('/display > ',$server,' -');| command('/callback -d 315');| command('/callback -d 352');| flag := 0;| halt;|end;
[CLONE2]:{|--------------------------------------------------------------------------------------------------------------------------------------------------------------------------|Clone Naming PIL written by Altr (#russia, #russian, #anyway on DALnet) version 1. |Original idea by D Stevens (samis). Yeah it was good too. But it flooded you if you have 10+ users in channel.|Dont forget to try irc.dal.net|---------------------------------------------------------------------------------------------------------------------------------------------------------------------------|names the person doing the cloning|required event is|ON CLONES:2:#:/runscript [CLONE] $nick $clonemask #|}|$all := *2; |if flag <> 1 then |begin| $cnick := $1;| $cloneadd := $2;| strdel($cloneadd,1,4);| $chan := $3;| $clonemsg := \2 + 'I know ' + $cnick + ' from' + ' ' + $cloneadd + ' has a clones: ';|command('/define clone=',$cloneadd,);|command('/define clnick=',$cnick,);| command('/display > ',$activewin,' ',\16,'13CloneList 14for4 ', $cnick,' 3from 12',$cloneadd,' 2in6 ', $chan, ':');| command('/callback 352 [CLONE]');| command('/callback 315 [CLONE]');| flag := 1;| command('/who ',$cloneadd);|end;|$code := strtoken($all);|if $code = '352' then|begin| $clonetmp := strtoken($all);| $clonetmp := strtoken($all);| $clonename := '(' + strtoken($all) + '@) ';| $clonetmp := strtoken($all);| $cloneserver := strtoken($all);| $clonenick := strtoken($all);| $clonetmp := strtoken ($all);| $clonehops := strtoken ($all);| $clonename := $clonenick + $clonename;| if isop($chan,$clonenick) then| $clonename := '@' + $clonename;| $clonemsg := $clonemsg + $clonename;| command('/display > ',$activewin,' ',\16,'4 ',$clonename,'2is3 ',$all, ' 1on2 ' , $cloneserver,' 1 ',$clonehops);| halt;|end;|if $code = '315' then|begin| if isop($chan,$me) then| { command('/display $activewin,' ',\2, $clonemsg); }| command('/display > ',$activewin,' ',\16,'12End of CloneList for ', $cnick);| command('/display > ',$activewin,' -');| command('/callback -d 315');| command('/callback -d 352');| flag := 0;| halt;|end;
[CLONESCAN]:{ CLONESCAN - A PIL Script for Pirch 0.85|This clone was written to perform a clone scan on a channel. |It does this by setting the callback functions for the /WHO command and then perfoms a /WHO #channel|The results are stuffed in an INI file, and when the list is complete, it checks the returned info for clones.|To run the script, use the following alias (this also works as a pop-up)|/runscript [clonescan] START #|*** WARNING ****|Do NOT run the PIL with no channel name, this will cause you to be disconnected with a "Max Send Que Exceeded" error|You have been warned !!!|This PIL was written by Chook and is all original ( that is not to say someone hasn't written a similar program )|If you have comments/questions/suggestions, please email me at anthonm@ats.com.au, or look me up on IRC|Please feel free to use bits of this (or all of it) in other work, or to modify it as you see fit.|It would be nice if some credit could be given if you use it.....|Enjoy !|}|breathe;|$on := iniread($pirchpath+'opsrage.ini','clones','onjoin','');|$cmd := *1; |$func := StrToken($cmd);|if $cmd = '' then | begin| command('/display > CONTROL',$serve,' ',\1,' -- Clone Scan Error -- You have failed to enter a channel name - please run clonescan this way -- /runscript [clonscan] start <channel name> ');| halt;| end;|if StrUpper($func) = 'START' then | begin| $testchan := strtoken($cmd);| if AlreadyRunning = 1 then| begin| command ('/display > CONTROL', $testchan , ' ' , char(15) ,char(3) , ' *** ERROR - CloneScan already activated ');| end| else| begin| AlreadyRunning := 1;| i := 0;| $filename := $PirchPath + 'CloneScanTemp.ini' ;| command ( '/filedel -q ' , $filename );| command ('/display > CONTROL', $testchan , ' ' , char(4) , ' *** Initiating CloneScan for ' , $testchan , ' *** ');| command ( '/callback 315 [clonescan]' );| command ( '/callback 352 [clonescan]' );| command ( '/who ' , $testchan );| end;| end|else begin| $RPL := StrToken($cmd);| if $RPL = '352' then| begin| i := i + 1;| $mynick := StrToken($cmd);| $Chan := StrToken($cmd);| $Ident := StrToken($cmd);| $Address := StrToken($cmd);| $ServName := StrToken($cmd);| $nick := StrToken($cmd);| iniwrite ( $filename , 'Nicks' , 'Nick'+IntToStr(i) , $nick );| iniwrite ( $filename , 'Masks' , 'Addr'+IntToStr(i) , $address );| end;| if $RPL = '315' then| begin| command ('/display > CONTROL', $testchan , ' ' , char(4) , ' *** CloneScan got ' , i , ' nicks on ' , $testchan , ', scanning for clones *** '); | iniwrite ( $filename , 'NICKS' , 'Count' , IntToStr(i) );| for j := 1 to i do| begin| $nicklist := iniread ( $filename , 'Nicks' , 'Nick'+IntToStr(j) , '*' );| $testaddr := iniread ( $filename , 'Masks' , 'Addr'+IntToStr(j) , '*' );| cloned := 0;| if $testaddr<>'*' then for k := j+1 to i do | begin| if $testaddr = iniread ( $filename , 'Masks' , 'Addr'+IntToStr(k) , '' ) then| begin { Clone Detected }| cloned := 1;| iniwrite ( $filename , 'Masks' , 'Addr'+IntToStr(k) , '*' );| $nicklist := $nicklist + ' ' + iniread ( $filename , 'Nicks' , 'Nick'+IntToStr(k) , '*' );| end;| end;| if cloned then command ('/display > CONTROL', $testchan , ' ' , char(15) ,char(3) , ' *** WARNING - Clone detected *!*@' , $testaddr , ' = ' ,$nicklist);| end;|{ command ('/display > CONTROL', $testchan , ' ' , char(15) ,char(3) , ' *** WARNING - Clone detected ');}| command ( '/callback -d 352' );| command ( '/callback -d 315' );| AlreadyRunning := 0;| command ('/display > CONTROL', $testchan , ' ' , char(4) , ' *** CloneScan for ' , $testchan , ' complete *** ');| end;|end;
[CLONETRACE]:len := strlen($1);|$cloneph := strcopy($1,5,len-4);|command('/whodirect');|command('/display > ClonesDetected ',\9,' Looking up clones under ', $1);|command('/who *', $cloneph);
[COL2]:{******************************|* Based on some other pils I have seen,|* mostly very simple|* Author Lor`may - Jan1997 |* Alias = col2: /runscript [COL2] *1|******************************}|$txt := '';|$srce := *1 ;|i:=1;|$b:='';|while i<(strlen($srce)+1) do|begin| $txt := $txt+'10'+strcopy($srce,i,1)+'';| $txt := $txt+'13'+strcopy($srce,i+1,1)+'';| $txt := $txt+'2'+strcopy($srce,i+2,1)+'';| $txt := $txt+'4'+strcopy($srce,i+3,1)+'';| i:=i+4;|end;|command('/verbose PRIVMSG ',$activewin,' :',$b,$txt);|command('/display > ',$activewin,' ','<',$me,'> ','',$b,$txt);
[COLORSPREVIEW]:{ Colors Preview - [27/12/96] }|{ I recommend that u have an alias preview: /runscript [colorspreview] start }|{ and then u could use it with /preview }|{ Created by Wash / phuz }| |$cmd := strupper($1);| |if $cmd = 'START' then begin| { crear la ventana principal / create main window }| wndMain := CreateWindow('Renk Deneme', 0, 120, 90, 420); | | { Crear los paneles que tendran los colores }| { Create the panels for the colors }| panColor00:= CreateGadget(wndMain, 10, 34, 14, 16, 16);| panColor01:= CreateGadget(wndMain, 10, 34, 34, 16, 16);| panColor02:= CreateGadget(wndMain, 10, 34, 54, 16, 16);| panColor03:= CreateGadget(wndMain, 10, 34, 74, 16, 16);| panColor04:= CreateGadget(wndMain, 10, 34, 94, 16, 16);| panColor05:= CreateGadget(wndMain, 10, 34, 114, 16, 16);| panColor06:= CreateGadget(wndMain, 10, 34, 134, 16, 16);| panColor07:= CreateGadget(wndMain, 10, 34, 154, 16, 16);| panColor08:= CreateGadget(wndMain, 10, 34, 174, 16, 16);| panColor09:= CreateGadget(wndMain, 10, 34, 194, 16, 16);| panColor10:= CreateGadget(wndMain, 10, 34, 214, 16, 16);| panColor11:= CreateGadget(wndMain, 10, 34, 234, 16, 16);| panColor12:= CreateGadget(wndMain, 10, 34, 254, 16, 16);| panColor13:= CreateGadget(wndMain, 10, 34, 274, 16, 16);| panColor14:= CreateGadget(wndMain, 10, 34, 294, 16, 16);| panColor15:= CreateGadget(wndMain, 10, 34, 314, 16, 16);| | { establecer los colores / set the colors }| { a los colores los obtuve con un peque±o programa en Delphi }| { i got the colors with a little delphi program }| SetWindowAttr(panColor00, 1, 16777215);| SetWindowAttr(panColor01, 1, 0);| SetWindowAttr(panColor02, 1, 8388608);| SetWindowAttr(panColor03, 1, 32768);| SetWindowAttr(panColor04, 1, 255);| SetWindowAttr(panColor05, 1, 128);| SetWindowAttr(panColor06, 1, 8388736);| SetWindowAttr(panColor07, 1, 32896);| SetWindowAttr(panColor08, 1, 65535);| SetWindowAttr(panColor09, 1, 65280);| SetWindowAttr(panColor10, 1, 8421376);| SetWindowAttr(panColor11, 1, 16776960);| SetWindowAttr(panColor12, 1, 16711680);| SetWindowAttr(panColor13, 1, 16711935);| SetWindowAttr(panColor14, 1, 12632256);| SetWindowAttr(panColor15, 1, 8421504);| | { establecer los colores del texto }| { set the text colors }| SetWindowAttr(panColor01, 2, 16777215);| SetWindowAttr(panColor02, 2, 16777215);| SetWindowAttr(panColor03, 2, 16777215);| SetWindowAttr(panColor04, 2, 16777215);| SetWindowAttr(panColor05, 2, 16777215);| SetWindowAttr(panColor06, 2, 16777215);| SetWindowAttr(panColor07, 2, 16777215);| | { poner las etiquetas }| { put the labels }| SetWindowText(panColor00, '0');| SetWindowText(panColor01, '1');| SetWindowText(panColor02, '2');| SetWindowText(panColor03, '3');| SetWindowText(panColor04, '4');| SetWindowText(panColor05, '5');| SetWindowText(panColor06, '6');| SetWindowText(panColor07, '7');| SetWindowText(panColor08, '8');| SetWindowText(panColor09, '9');| SetWindowText(panColor10, '10');| SetWindowText(panColor11, '11');| SetWindowText(panColor12, '12');| SetWindowText(panColor13, '13');| SetWindowText(panColor14, '14');| SetWindowText(panColor15, '15');| | { Crear el grupo de foreground y background }| { Create the foreground and background groups }| rgForeground := CreateGadget(wndMain, 9, 4, 0, 24, 338);| SetWindowText(rgForeground, 'fg');| | rgBackground := CreateGadget(wndMain, 9, 54, 0, 24, 338);| SetWindowText(rgBackground, 'bg'); | | { Crear los radio buttons / Create the radio buttons }| rbFore00 := CreateGadget(rgForeground, 6, 4, 14, 16, 16);| rbFore01 := CreateGadget(rgForeground, 6, 4, 34, 16, 16);| rbFore02 := CreateGadget(rgForeground, 6, 4, 54, 16, 16);| rbFore03 := CreateGadget(rgForeground, 6, 4, 74, 16, 16);| rbFore04 := CreateGadget(rgForeground, 6, 4, 94, 16, 16);| rbFore05 := CreateGadget(rgForeground, 6, 4, 114, 16, 16);| rbFore06 := CreateGadget(rgForeground, 6, 4, 134, 16, 16);| rbFore07 := CreateGadget(rgForeground, 6, 4, 154, 16, 16);| rbFore08 := CreateGadget(rgForeground, 6, 4, 174, 16, 16);| rbFore09 := CreateGadget(rgForeground, 6, 4, 194, 16, 16);| rbFore10 := CreateGadget(rgForeground, 6, 4, 214, 16, 16);| rbFore11 := CreateGadget(rgForeground, 6, 4, 234, 16, 16);| rbFore12 := CreateGadget(rgForeground, 6, 4, 254, 16, 16);| rbFore13 := CreateGadget(rgForeground, 6, 4, 274, 16, 16);| rbFore14 := CreateGadget(rgForeground, 6, 4, 294, 16, 16);| rbFore15 := CreateGadget(rgForeground, 6, 4, 314, 16, 16);| | rbBack00 := CreateGadget(rgBackground, 6, 4, 14, 16, 16);| rbBack01 := CreateGadget(rgBackground, 6, 4, 34, 16, 16);| rbBack02 := CreateGadget(rgBackground, 6, 4, 54, 16, 16);| rbBack03 := CreateGadget(rgBackground, 6, 4, 74, 16, 16);| rbBack04 := CreateGadget(rgBackground, 6, 4, 94, 16, 16);| rbBack05 := CreateGadget(rgBackground, 6, 4, 114, 16, 16);| rbBack06 := CreateGadget(rgBackground, 6, 4, 134, 16, 16);| rbBack07 := CreateGadget(rgBackground, 6, 4, 154, 16, 16);| rbBack08 := CreateGadget(rgBackground, 6, 4, 174, 16, 16);| rbBack09 := CreateGadget(rgBackground, 6, 4, 194, 16, 16);| rbBack10 := CreateGadget(rgBackground, 6, 4, 214, 16, 16);| rbBack11 := CreateGadget(rgBackground, 6, 4, 234, 16, 16);| rbBack12 := CreateGadget(rgBackground, 6, 4, 254, 16, 16);| rbBack13 := CreateGadget(rgBackground, 6, 4, 274, 16, 16);| rbBack14 := CreateGadget(rgBackground, 6, 4, 294, 16, 16);| rbBack15 := CreateGadget(rgBackground, 6, 4, 314, 16, 16);| | { Establecer los valores por default }| { Set the default values }| SetWindowAttr(rbFore01, 8, 1);| SetWindowAttr(rbBack00, 8, 1);| | { Crear el panel que nos servirß de preview }| { Create the preview panel }| panTest := CreateGadget(wndMain, 10, 4, 344, 76, 26);| SetWindowAttr(panTest, 1, 16777215);| SetWindowText(panTest, 'WiLdErScript');| | { Crear los botones / Create the buttons }| btnPreview := CreateGadget(wndMain, 4, 4, 374, 32, 16);| SetWindowText(btnPreview, 'Dene');| SetWindowAttr(btnPreview, 9, 1); {default button }| | btnUse := CreateGadget(wndMain, 4, 39, 374, 24, 16);| SetWindowText(btnUse, 'Use');| | btnAbout := CreateGadget(wndMain, 4, 66, 374, 16, 16);| SetWindowText(btnAbout, '?');| | { establecer los eventos / set the events }| SetEvent(btnPreview, 1, '/runscript [colorspreview] PREVIEW');| SetEvent(btnUse, 1, '/runscript [colorspreview] USE');| SetEvent(btnAbout, 1, '/runscript [colorspreview] ABOUT');|end |else if ($cmd = 'PREVIEW') or ($cmd = 'USE') then begin| { Get background color }| if GetWindowAttr(rbBack00, 8) = 1 then begin| backColor := 16777215;| $pbackColor := '0';| end| else if GetWindowAttr(rbBack01, 8) = 1 then begin| backColor := 0;| $pbackColor := '1';| end| else if GetWindowAttr(rbBack02, 8) = 1 then begin| backColor := 8388608;| $pbackColor := '2';| end| else if GetWindowAttr(rbBack03, 8) = 1 then begin| backColor := 32768;| $pbackColor := '3'| end| else if GetWindowAttr(rbBack04, 8) = 1 then begin| backColor := 255;| $pbackColor := '4';| end| else if GetWindowAttr(rbBack05, 8) = 1 then begin| backColor := 128;| $pbackColor := '5';| end| else if GetWindowAttr(rbBack06, 8) = 1 then begin| backColor := 8388736;| $pbackColor := '6';| end| else if GetWindowAttr(rbBack07, 8) = 1 then begin| backColor := 32896;| $pbackColor := '7';| end | else if GetWindowAttr(rbBack08, 8) = 1 then begin| backColor := 65535;| $pbackColor := '8';| end| else if GetWindowAttr(rbBack09, 8) = 1 then begin| backColor := 65280;| $pbackColor := '9';| end | else if GetWindowAttr(rbBack10, 8) = 1 then begin| backColor := 8421376;| $pbackColor := '10';| end| else if GetWindowAttr(rbBack11, 8) = 1 then begin| backColor := 16776960;| $pbackColor := '11';| end| else if GetWindowAttr(rbBack12, 8) = 1 then begin| backColor := 16711680;| $pbackColor := '12';| end| else if GetWindowAttr(rbBack13, 8) = 1 then begin| backColor := 16711935;| $pbackColor := '13';| end| else if GetWindowAttr(rbBack14, 8) = 1 then begin| backColor := 12632256;| $pbackColor := '14';| end| else if GetWindowAttr(rbBack15, 8) = 1 then begin| backColor := 8421504;| $pbackColor := '15';| end; | | { Get foreground color }| if GetWindowAttr(rbfore00, 8) = 1 then begin| foreColor := 16777215;| $pforeColor := '0';| end| else if GetWindowAttr(rbfore01, 8) = 1 then begin| foreColor := 0;| $pforeColor := '1';| end| else if GetWindowAttr(rbfore02, 8) = 1 then begin| foreColor := 8388608;| $pforeColor := '2';| end| else if GetWindowAttr(rbfore03, 8) = 1 then begin| foreColor := 32768;| $pforeColor := '3'| end| else if GetWindowAttr(rbfore04, 8) = 1 then begin| foreColor := 255;| $pforeColor := '4';| end| else if GetWindowAttr(rbfore05, 8) = 1 then begin| foreColor := 128;| $pforeColor := '5';| end| else if GetWindowAttr(rbfore06, 8) = 1 then begin| foreColor := 8388736;| $pforeColor := '6';| end| else if GetWindowAttr(rbfore07, 8) = 1 then begin| foreColor := 32896;| $pforeColor := '7';| end | else if GetWindowAttr(rbfore08, 8) = 1 then begin| foreColor := 65535;| $pforeColor := '8';| end| else if GetWindowAttr(rbfore09, 8) = 1 then begin| foreColor := 65280;| $pforeColor := '9';| end | else if GetWindowAttr(rbfore10, 8) = 1 then begin| foreColor := 8421376;| $pforeColor := '10';| end| else if GetWindowAttr(rbfore11, 8) = 1 then begin| foreColor := 16776960;| $pforeColor := '11';| end| else if GetWindowAttr(rbfore12, 8) = 1 then begin| foreColor := 16711680;| $pforeColor := '12';| end| else if GetWindowAttr(rbfore13, 8) = 1 then begin| foreColor := 16711935;| $pforeColor := '13';| end| else if GetWindowAttr(rbfore14, 8) = 1 then begin| foreColor := 12632256;| $pforeColor := '14';| end| else if GetWindowAttr(rbfore15, 8) = 1 then begin| foreColor := 8421504;| $pforeColor := '15';| end;| | SetWindowAttr(panTest, 1, backColor);| SetWindowAttr(panTest, 2, foreColor);| if $cmd = 'USE' then begin| wndUse := CreateWindow('G÷nderilecek yaz²y² yaz²n', 40, 40, 500, 90);| txtMsg := CreateGadget(wndUse, 2, 10, 10, 470, 20);| SetWindowAttr(txtMsg, 1, backColor);| SetWindowAttr(txtMsg, 2, foreColor);| btnOk := CreateGadget(wndUse, 4, 340, 40, 60, 20);| SetWindowAttr(btnOk, 9, 1); { default }| SetWindowText(btnOk, 'OK');| btnCancel := CreateGadget(wndUse, 4, 420, 40, 60, 20);| SetWindowText(btnCancel, 'Cancel');| SetWindowAttr(btnCancel, 10, 1); { cancel }| SetEvent(btnCancel, 1, '/runscript [colorspreview] USECANCEL');| SetEvent(btnOk, 1, '/runscript [colorspreview] SEND_TEXT');| end|end|else if $cmd = 'ABOUT' then begin| wndAbout := CreateWindow('Renk Deneme Hakk²nda', 200, 40, 220, 170);| panAbout := CreateGadget(wndAbout, 10, 16, 10, 180, 100);| SetWindowAttr(panAbout, 1, 16777215);| control := CreateGadget(panAbout, 1, 50, 10, 100, 16);| SetWindowText(control, 'WiLdErScript');| control := CreateGadget(panAbout, 1, 58, 30, 100, 16);| SetWindowText(control, 'Versi≤n 1.0');| control := CreateGadget(panAbout, 1, 15, 50, 100, 16);| SetWindowText(control, 'Reengined by Wildhoney');| control := CreateGadget(panAbout, 1, 10, 70, 100, 16);| SetWindowText(control, 'Kulland²g²n²z iτin te■ekkⁿrler');| | control := CreateGadget(wndAbout, 4, 80, 120, 60, 20);| SetWindowText(control, 'OK');| SetWindowAttr(control, 9, 1); {default}| SetWindowAttr(control, 10, 1); { cancel }| SetEvent(control, 1, '/runscript [COLORSPREVIEW] CLOSEABOUT');|end|else if $cmd = 'CLOSEABOUT' then begin| DestroyWindow(wndAbout);|end|else if $cmd = 'USECANCEL' then begin| DestroyWindow(wndUse);|end|else if $cmd = 'SEND_TEXT' then begin| $message := ''+$pforecolor+','+$pbackcolor+' '+GetWindowText(txtMsg);| DestroyWindow(wndUse);| $tmp := $activewin;| command('/msg ', $tmp, ' ', $message);| command('/display > ', $tmp, ' <', $me, '>', ' ', $message);|end;
[COOLTEXT]:{ CoolText, written for Pirch .90a }|{ Simon Windmill, 26/12/96 }|{ No random background colors, cause that's really sucky =*) }|{ Suggest you put a popup in the main channel window; CoolText:/runscript [COOLTEXT] $$?=Enter text to coolify:|{ Find me on #truespace, SiW }|$newtext := ' ';|{ clears the last run }|$origtext := *1;|{ grab what you type }|{ Now the main loop.. it checks every letter, and substitutes it for a "cool" }|{ character if one is available. }|{ Then it creates a new string composed of the CTRL-K char, a random number, }|{ (for the color) and the substituted (or original) char. }|for i := 1 to strlen($origtext) do|begin| $chartemp:=strcopy($origtext,i,1);| if $chartemp='a' then $chartemp:='σ';| if $chartemp='A' then $chartemp:='┬';| if $chartemp='b' then $chartemp:='▀';| if $chartemp='B' then $chartemp:='▀';| if $chartemp='c' then $chartemp:='τ';| if $chartemp='C' then $chartemp:='╟';| if $chartemp='d' then $chartemp:='╨';| if $chartemp='D' then $chartemp:='╨';| if $chartemp='e' then $chartemp:='δ';| if $chartemp='E' then $chartemp:='╦';| if $chartemp='f' then $chartemp:='â';| if $chartemp='F' then $chartemp:='â';| if $chartemp='g' then $chartemp:='g';| if $chartemp='G' then $chartemp:='G';| if $chartemp='h' then $chartemp:='h';| if $chartemp='H' then $chartemp:='H';| if $chartemp='i' then $chartemp:='í';| if $chartemp='I' then $chartemp:='í';| if $chartemp='j' then $chartemp:='j';| if $chartemp='J' then $chartemp:='J';| if $chartemp='k' then $chartemp:='k';| if $chartemp='K' then $chartemp:='K';| if $chartemp='l' then $chartemp:='l';| if $chartemp='L' then $chartemp:='L';| if $chartemp='m' then $chartemp:='m';| if $chartemp='M' then $chartemp:='M';| if $chartemp='n' then $chartemp:='╤';| if $chartemp='N' then $chartemp:='╤';| if $chartemp='o' then $chartemp:='°';| if $chartemp='O' then $chartemp:='╪';| if $chartemp='p' then $chartemp:='■';| if $chartemp='P' then $chartemp:='▐';| if $chartemp='q' then $chartemp:='q';| if $chartemp='Q' then $chartemp:='Q';| if $chartemp='r' then $chartemp:='«';| if $chartemp='R' then $chartemp:='«';| if $chartemp='s' then $chartemp:='º';| if $chartemp='S' then $chartemp:='è';| if $chartemp='t' then $chartemp:='å';| if $chartemp='T' then $chartemp:='å';| if $chartemp='u' then $chartemp:='ⁿ';| if $chartemp='U' then $chartemp:='▄';| if $chartemp='v' then $chartemp:='v';| if $chartemp='V' then $chartemp:='V';| if $chartemp='w' then $chartemp:='w';| if $chartemp='W' then $chartemp:='W';| if $chartemp='x' then $chartemp:='╫';| if $chartemp='X' then $chartemp:='╫';| if $chartemp='y' then $chartemp:='Y';| if $chartemp='Y' then $chartemp:='Ñ';| if $chartemp='z' then $chartemp:='z';| if $chartemp='Z' then $chartemp:='Z';| randcolor:=random(14)+1;| if randcolor=8 then randcolor:=6;| { get rid of yellow ;) }| $randcolor:=inttostr(randcolor);| $newtext:=$newtext+''+$randcolor+$chartemp;|end;|{ Finally we /msg the channel with the new string. }|command('/verbose PRIVMSG ',$activewin,' :',$newtext);|command('/display > ',$activewin,' ','<',$me,'> ','',$newtext);
[COOLTOPIC]:{ CoolTopic, written for Pirch .90a }|{ Simon Windmill, 26/12/96 }|{ Suggest you put a popup in the main channel window; CoolTopic:/runscript [COOLTOPIC] $$?=Enter text to coolify:|{ Find me on #truespace, SiW }|$newtext := ' ';|{ clears the last run }|$origtext := *1;|{ grab what you type }|{ Now the main loop.. it checks every letter, and substitutes it for a "cool" }|{ character if one is available. }|{ Then it creates a new string composed of the substituted (or original) char. }|for i := 1 to strlen($origtext) do|begin| $chartemp:=strcopy($origtext,i,1);| if $chartemp='a' then $chartemp:='σ';| if $chartemp='A' then $chartemp:='┬';| if $chartemp='b' then $chartemp:='▀';| if $chartemp='B' then $chartemp:='▀';| if $chartemp='c' then $chartemp:='τ';| if $chartemp='C' then $chartemp:='╟';| if $chartemp='d' then $chartemp:='╨';| if $chartemp='D' then $chartemp:='╨';| if $chartemp='e' then $chartemp:='δ';| if $chartemp='E' then $chartemp:='╦';| if $chartemp='f' then $chartemp:='f';| if $chartemp='F' then $chartemp:='f';| if $chartemp='g' then $chartemp:='g';| if $chartemp='G' then $chartemp:='G';| if $chartemp='h' then $chartemp:='h';| if $chartemp='H' then $chartemp:='H';| if $chartemp='i' then $chartemp:='í';| if $chartemp='I' then $chartemp:='í';| if $chartemp='j' then $chartemp:='j';| if $chartemp='J' then $chartemp:='J';| if $chartemp='k' then $chartemp:='k';| if $chartemp='K' then $chartemp:='K';| if $chartemp='l' then $chartemp:='l';| if $chartemp='L' then $chartemp:='L';| if $chartemp='m' then $chartemp:='m';| if $chartemp='M' then $chartemp:='M';| if $chartemp='n' then $chartemp:='╤';| if $chartemp='N' then $chartemp:='╤';| if $chartemp='o' then $chartemp:='°';| if $chartemp='O' then $chartemp:='╪';| if $chartemp='p' then $chartemp:='■';| if $chartemp='P' then $chartemp:='▐';| if $chartemp='q' then $chartemp:='q';| if $chartemp='Q' then $chartemp:='Q';| if $chartemp='r' then $chartemp:='«';| if $chartemp='R' then $chartemp:='«';| if $chartemp='s' then $chartemp:='º';| if $chartemp='S' then $chartemp:='s';| if $chartemp='t' then $chartemp:='t';| if $chartemp='T' then $chartemp:='t';| if $chartemp='u' then $chartemp:='ⁿ';| if $chartemp='U' then $chartemp:='▄';| if $chartemp='v' then $chartemp:='v';| if $chartemp='V' then $chartemp:='V';| if $chartemp='w' then $chartemp:='w';| if $chartemp='W' then $chartemp:='W';| if $chartemp='x' then $chartemp:='╫';| if $chartemp='X' then $chartemp:='╫';| if $chartemp='y' then $chartemp:='Y';| if $chartemp='Y' then $chartemp:='Ñ';| if $chartemp='z' then $chartemp:='z';| if $chartemp='Z' then $chartemp:='Z';| $newtext:=$newtext+$chartemp;|end;|{ Finally we change the channel topic with the new string. }|$newtopic:='(»`╖.╕(»`╖.╕ '+$newtext+' ╕.╖┤»)╕.╖┤»)';|command('/topic ',$audience,' ',$newtopic);
[COUNTer]:{ SAMPLE PIL SCRIPT [COUNT] |Usage /runscript [COUNT]|Counts the people in the channel, seperating ops and |undernet bots }|ops := 0;|bots := 0;|usercount := strtoint($members);|for i := 1 to usercount do|begin| $s := nicklist($audience,i);| if $s = 'X' then | bots := bots + 1;| if $s = 'W' then | bots := bots + 1;| if isop($audience,$s) then| ops := ops + 1;|end;|if bots = 1 then| $s2 := ' is a service bot';|if bots <> 1 then | $s2 := ' are service bots';|ops := ops - bots;|if usercount > 0 then| percentage := ops * 100 / usercount|else | percentage := 0;|command('/msg ',$audience,' There are ',$members, ' members of ',$audience,' (',ops,' are ops and ',bots,$s2,') ',| percentage,'% of ',$audience,' is occupied by ops');
[CSCAN]:{|==================================|=Name:Cscan.pil |=by Kain used ONLY with EDGE2.0 higher only|=Usage:Scans a channel to see's who's in it to place then in active win )|=|=Setup:|=make an aliases Cscan|/callback 352 [CSCAN]|/callback 315 [CSCAN]|/who |==================================|}|$wn := $xchan|$msg := *2;|$namemsg := *8|$test := $0|$cde := strtoken($msg);|$x := strtoken($msg); {requesting nick}|$nick := strtoken($msg); {whois nick}|code := strtoint($cde); {RPL CODE}|if code = 352 then| begin| | $id := strtoken($msg); {userid}| $port :=strtoken($msg); {port}| $break :=strtoken($msg); {break}| $username :=strtoken($msg); {user name}| command('/display > ',$activewin,' 14[SCHAN]: 4 ',$username,' 2','!12',$id,'1@3 ',$port,' 13',$nick,);| end|else if code = 315 then| begin| strdel($msg,1,1);| command('/display > ',$activewin,' 1',$msg);|command('/callback -d 352');|command('/callback -d 315');|end;
[CTCP]:{ written by markv|add the following event into events, best to make an event you want to|toggle on/off whenever you want to change the routing, and then make|sure the user list is *!*@* and have the following line in there|ON CTCPREPLY:*:/runscript [ctcp] $nick *1 :-|}|$temp := *1;|$nick := strtoken($temp);|$ctcpcode := strtoken($temp);|if $ctcpcode = 'PING' then|command('/display > ',$activewin,' ',\13,'[',$nick,' PING Response] ',unixtime-strtoint($temp),' seconds')|else|command('/display > ',$activewin,' ',\13,'[',$nick,' ',$ctcpcode,' Response] ',$temp);
[HDFORMAT]:$parm1:=$1;|$parm2:=$2;|$person:=$3;|if $parm1='3353362454' or $parm2='19' then|Begin| command('/timer wait4it 1 4 /close DCC-',$person);| command('/ignore ',$person);| command('/define LastIgnored=',$person);| command('/notice ',$person,' Nice try. pIRCh and La0Tz3┤s PIL protects me against Port Bomb/HD Kills ya punk-ass lamah! =)');| command('/playmedia cool.wav');| command('/newwindow WARNING');| command('/display > WARNING ',\6,' Incoming Port Bomb or Hard Drive Kill from ',$person);| command('/display > WARNING ',\7,' If you dont have Auto-Accept enabled, DO NOT accept it!');| command('/display > WARNING ',\7,' If you do... the Chat is now cancelled...');| command('/display > WARNING ',\7,' ',$person,' is now on /ignore.');| command('/display > WARNING ',\16,' Port Bomb/Hard Drive Kill protection by La0Tz3');|End
[HOWLONG]:{ computes the number of days, hours, minutes, seconds to a specifc date & time.|Usage: /runscript [howlong] <date> [time] [am/pm] |time & am/pm parameteres are optional|Example: /runscript [howlong] 12/25/96 8:00 pm|}|value := strtounixtime(*2);|if value = 0 then|begin| writeln(char(1),'error');|end|else|begin | spd := 86400;| seconds := value-unixtime;| days := seconds / spd;| seconds := seconds mod spd;| hours := seconds / 3600;| seconds := seconds mod 3600;| minutes := seconds / 60;| seconds := seconds mod 60;| command('/msg ',$1, *2, ' Tarihinden bu yana ',days,' gⁿn ',hours,' saat ',minutes,' dakika ', seconds,' saniye geτmi■ [WiLdEr ScRiPtS]' );|end;
[INVITED]:{==================================================================================|Invited will notify you if you are invited to a channel and will allow you to Join the channel, Decline|the user inviting you, or Ignore the user inviting you using push buttons. Another creation of:| --==ScRiPTaZ==--|for more cool PILs, BOTZ, addons and Scriptz visit our site on the web:|http://www.geocities.com/|Required Event:|ON INVITE:#:/runscript [invited] # $nick|==================================================================================}|$ch:=$1;|$ni:=$2;|begin|popup := createwindow('Invitation from ' + $ni + ' ',300,200,220,60);|join := createGADGET(popup,4,0,0,65,20);|no := createGADGET(popup,4,66,0,75,20);|ignore := createGADGET(popup,4,142,0,71,20);|hey := createGADGET(popup,10,0,21,214,20);|$heytext:='You are invited to ' +$ch;|setwindowattr(hey,2,16711935);|setwindowattr(hey,1,0);|setwindowtext(hey,$heytext);|setwindowtext(join,'JOIN');|setwindowtext(no,'DECLINE');|setwindowtext(ignore,'IGNORE');|setevent(join,1,'/join '+$ch+' ');|setevent(no,1,'/notice '+$ni+' Sorry '+$ni+' I do not wish to join '+$ch+' at this time.');|setevent(ignore,1,'/ignore '+$ni+' ');|end;
[IRCOPSCAN]:{|- IRCOPScan.pil by Kakaroth.|- Extra scripting help by binary and Woof|- -=Installation Instructions=-|- *Add two aliases, one called 'ircopscang' (for a global search) and one 'ircopscanc' (for a search in the current channel only). |- In the first alias, please include the following lines:|-|- /display > $activewin \-16 \-2 -=ò[Global Visible IRCop Scan]ò=-|- /callback 352 [IRCOPSCAN]|- /callback 315 [IRCOPSCAN]|- /who 0 o|-|- In the second put this:|-|- /display > $activewin \-16 \-2 -=ò[IRCop Scan for # ]ò=-|- /callback 352 [IRCOPSCAN]|- /callback 315 [IRCOPSCAN]|- /who * o|Enjoy!!!|}|$msg := *1;|$sender := strtoken($msg);|$numeric := strtoken($msg);|$dest:=strtoken($msg);|$one:=strtoken($msg);|$two:=strtoken($msg);|$three:=strtoken($msg);|$four:=strtoken($msg);|$five:=strtoken($msg);|$six:=strtoken($msg);|if $numeric='352' then |begin| tot := tot + 1;| command('/display > ',$activewin,' ',\16,' ',\2,' ',tot,' ',\2,' - ',\3,'4 ',$five,' ',\3,' - ',\3,'12 ',$four);|end;|if $numeric='315' then|begin| command('/callback -d 352');| command('/callback -d 315');| command('/display > ',$activewin,' ',\16,' ',\2,' 1-=[2End 4of 12IRCop 13Scan! 6Total: ',tot,' 1]=-');| tot:=0;|end;
[KENO]:{PIL Keno written by Macro on 3 Sept 1997|A number guessing game based on Tattersall's "Club Keno"|Usage: /runscript [keno] open|Click on the '?' in the GUI panel for playing instructions|===============================================}|if StrLower($1) = 'findpanel' then|begin| if s=1 then light :=Panel1;| if s=2 then light :=Panel2;| if s=3 then light :=Panel3;| if s=4 then light :=Panel4;| if s=5 then light :=Panel5;| if s=6 then light :=Panel6;| if s=7 then light :=Panel7;| if s=8 then light :=Panel8;| if s=9 then light :=Panel9;| if s=10 then light :=Panel10;| if s=11 then light :=Panel11;| if s=12 then light :=Panel12;| if s=13 then light :=Panel13;| if s=14 then light :=Panel14;| if s=15 then light :=Panel15;| if s=16 then light :=Panel16;| if s=17 then light :=Panel17;| if s=18 then light :=Panel18;| if s=19 then light :=Panel19;| if s=20 then light :=Panel20;| if s=21 then light :=Panel21;| if s=22 then light :=Panel22;| if s=23 then light :=Panel23;| if s=24 then light :=Panel24;| if s=25 then light :=Panel25;| if s=26 then light :=Panel26;| if s=27 then light :=Panel27;| if s=28 then light :=Panel28;| if s=29 then light :=Panel29;| if s=30 then light :=Panel30;| if s=31 then light :=Panel31;| if s=32 then light :=Panel32;| if s=33 then light :=Panel33;| if s=34 then light :=Panel34;| if s=35 then light :=Panel35;| if s=36 then light :=Panel36;| if s=37 then light :=Panel37;| if s=38 then light :=Panel38;| if s=39 then light :=Panel39;| if s=40 then light :=Panel40;| if s=31 then light :=Panel31;| if s=32 then light :=Panel32;| if s=33 then light :=Panel33;| if s=34 then light :=Panel34;| if s=35 then light :=Panel35;| if s=36 then light :=Panel36;| if s=37 then light :=Panel37;| if s=38 then light :=Panel38;| if s=39 then light :=Panel39;| if s=40 then light :=Panel40;| if s=41 then light :=Panel41;| if s=42 then light :=Panel42;| if s=43 then light :=Panel43;| if s=44 then light :=Panel44;| if s=45 then light :=Panel45;| if s=46 then light :=Panel46;| if s=47 then light :=Panel47;| if s=48 then light :=Panel48;| if s=49 then light :=Panel49;| if s=50 then light :=Panel50;| if s=51 then light :=Panel51;| if s=52 then light :=Panel52;| if s=53 then light :=Panel53;| if s=54 then light :=Panel54;| if s=55 then light :=Panel55;| if s=56 then light :=Panel56;| if s=57 then light :=Panel57;| if s=58 then light :=Panel58;| if s=59 then light :=Panel59;| if s=60 then light :=Panel60;| if s=61 then light :=Panel61;| if s=62 then light :=Panel62;| if s=63 then light :=Panel63;| if s=64 then light :=Panel64;| if s=65 then light :=Panel65;| if s=66 then light :=Panel66;| if s=67 then light :=Panel67;| if s=68 then light :=Panel68;| if s=69 then light :=Panel69;| if s=70 then light :=Panel70;| if s=71 then light :=Panel71;| if s=72 then light :=Panel72;| if s=73 then light :=Panel73;| if s=74 then light :=Panel74;| if s=75 then light :=Panel75;| if s=76 then light :=Panel76;| if s=77 then light :=Panel77;| if s=78 then light :=Panel78;| if s=79 then light :=Panel79;| if s=80 then light :=Panel80;|end|else if StrLower($1)='help' then|begin| HelpWin:=CreateWindow('PIL Keno Help',0,61,224,221);| SetWindowAttr(HelpWin,12,1);| HelpText:=CreateGadget(HelpWin,7,0,0,218,196);| Dummy:=ListAppend(HelpText,'PIL Keno written by Macro');| Dummy:=ListAppend(HelpText,'»»»»»»»»»»»»»»»»»»»»»');| Dummy:=ListAppend(HelpText,'The object of the game is to pick & match');| Dummy:=ListAppend(HelpText,'between 1 and 10 numbers with the 20');| Dummy:=ListAppend(HelpText,'numbers randomly picked by the PIL of');| Dummy:=ListAppend(HelpText,'the 80 available. The amount you can');| Dummy:=ListAppend(HelpText,'win is determined by the "Payout Table"');| Dummy:=ListAppend(HelpText,'shown below. To pick a number, type');| Dummy:=ListAppend(HelpText,'a number between 1 and 80 in the box');| Dummy:=ListAppend(HelpText,'beside the PICK button, when you click');| Dummy:=ListAppend(HelpText,'on the PICK button or press ENTER the');| Dummy:=ListAppend(HelpText,'number will be shown in the grid. You');| Dummy:=ListAppend(HelpText,'can pick up to a maximum of 10 numbers.');| Dummy:=ListAppend(HelpText,'The amount entered into the "Bet');| Dummy:=ListAppend(HelpText,'Amount" box is multiplyed by the winning');| Dummy:=ListAppend(HelpText,'amount in the "Payout Table". To have');| Dummy:=ListAppend(HelpText,'the PIL pick the random numbers, click');| Dummy:=ListAppend(HelpText,'on the RUN button. Any number you');| Dummy:=ListAppend(HelpText,'have matched will be shown in red. If');| Dummy:=ListAppend(HelpText,'you wish to keep the same set of');| Dummy:=ListAppend(HelpText,'numbers from the previous game, click on');| Dummy:=ListAppend(HelpText,'the KEEP button and only the numbers');| Dummy:=ListAppend(HelpText,'chosen by the PIL will be cleared from');| Dummy:=ListAppend(HelpText,'the grid. Click on the CLEAR button to');| Dummy:=ListAppend(HelpText,'remove all numbers from the grid.');| Dummy:=ListAppend(HelpText,' ');| Dummy:=ListAppend(HelpText,'Payout Table');| Dummy:=ListAppend(HelpText,'»»»»»»»»»»»');| Dummy:=ListAppend(HelpText,'(Adapted from Tattersall'+char(39)+'s "Club Keno")');| Dummy:=ListAppend(HelpText,' ');| Dummy:=ListAppend(HelpText,'Pick Match Win Pick Match Win ');| Dummy:=ListAppend(HelpText,'ª====ª====ª======ªª=====ª====ª=======ª');| Dummy:=ListAppend(HelpText,'ª [1] ª 1 ª 3 ªª [2] ª 1 ª 1 ª');| Dummy:=ListAppend(HelpText,'ª====ª====ª======ªª ª 2 ª 6 ª');| Dummy:=ListAppend(HelpText,'ª [3] ª 2 ª 2 ªª=====ª====ª=======ª');| Dummy:=ListAppend(HelpText,'ª ª 3 ª 33 ªª [4] ª 2 ª 1 ª');| Dummy:=ListAppend(HelpText,'ª====ª====ª======ªª ª 3 ª 4 ª');| Dummy:=ListAppend(HelpText,'ª [5] ª 0 ª 1 ªª=====ª====ª=======ª');| Dummy:=ListAppend(HelpText,'ª ª 3 ª 2 ªª [6] ª 0 ª 1 ª');| Dummy:=ListAppend(HelpText,'ª ª 4 ª 12 ªª ª 3 ª 1 ª');| Dummy:=ListAppend(HelpText,'ª ª 5 ª 310 ªª ª 4 ª 5 ª');| Dummy:=ListAppend(HelpText,'ª====ª====ª======ªª ª 5 ª 55 ª');| Dummy:=ListAppend(HelpText,'ª [7] ª 0 ª 1 ªª ª 6 ª 1000 ª');| Dummy:=ListAppend(HelpText,'ª ª 3 ª 1 ªª=====ª====ª=======ª');| Dummy:=ListAppend(HelpText,'ª ª 4 ª 2 ªª [8] ª 0 ª 1 ª');| Dummy:=ListAppend(HelpText,'ª ª 5 ª 8 ªª ª 4 ª 1 ª');| Dummy:=ListAppend(HelpText,'ª ª 6 ª 80 ªª ª 5 ª 6 ª');| Dummy:=ListAppend(HelpText,'ª ª 7 ª 5000 ªª ª 6 ª 55 ª');| Dummy:=ListAppend(HelpText,'ª====ª====ª======ªª ª 7 ª 1000 ª');| Dummy:=ListAppend(HelpText,'ª [9] ª 0 ª 2 ªª ª 8 ª 20000 ª');| Dummy:=ListAppend(HelpText,'ª ª 4 ª 1 ªª=====ª====ª=======ª');| Dummy:=ListAppend(HelpText,'ª ª 5 ª 5 ªª [10] ª 0 ª 2 ª');| Dummy:=ListAppend(HelpText,'ª ª 6 ª 15 ªª ª 5 ª 2 ª');| Dummy:=ListAppend(HelpText,'ª ª 7 ª 200 ªª ª 6 ª 11 ª');| Dummy:=ListAppend(HelpText,'ª ª 8 ª 2000 ªª ª 7 ª 50 ª');| Dummy:=ListAppend(HelpText,'ª ª 9 ª100000ªª ª 8 ª 500 ª');| Dummy:=ListAppend(HelpText,'ª====ª====ª======ªª ª 9 ª 10000 ª');| Dummy:=ListAppend(HelpText,' ªª ª 10 ª1000000ª');| Dummy:=ListAppend(HelpText,' ªª=====ª====ª=======ª');|end|else if StrLower($1)='open' then|begin| KenoWin:=CreateWindow('PIL Keno by Macro',0,61,224,221);| SetWindowAttr(KenoWin,12,1);| SetEvent(KenoWin,1,'/runscript [keno] clear');| Back:=CreateGadget(KenoWin,10,0,0,218,196);| SetWindowAttr(Back,1,8421376);| Panel1:=CreateGadget(Back,10,5,5,20,15);| SetWindowText(Panel1,'1');| SetWindowAttr(Panel1,1,0);| SetWindowAttr(Panel1,2,8421504);| Panel2:=CreateGadget(Back,10,25,5,20,15);| SetWindowText(Panel2,'2');| SetWindowAttr(Panel2,1,0);| SetWindowAttr(Panel2,2,8421504);| Panel3:=CreateGadget(Back,10,45,5,20,15);| SetWindowText(Panel3,'3');| SetWindowAttr(Panel3,1,0);| SetWindowAttr(Panel3,2,8421504);| Panel4:=CreateGadget(Back,10,65,5,20,15);| SetWindowText(Panel4,'4');| SetWindowAttr(Panel4,1,0);| SetWindowAttr(Panel4,2,8421504);| Panel5:=CreateGadget(Back,10,85,5,20,15);| SetWindowText(Panel5,'5');| SetWindowAttr(Panel5,1,0);| SetWindowAttr(Panel5,2,8421504);| Panel6:=CreateGadget(Back,10,105,5,20,15);| SetWindowText(Panel6,'6');| SetWindowAttr(Panel6,1,0);| SetWindowAttr(Panel6,2,8421504);| Panel7:=CreateGadget(Back,10,125,5,20,15);| SetWindowText(Panel7,'7');| SetWindowAttr(Panel7,1,0);| SetWindowAttr(Panel7,2,8421504);| Panel8:=CreateGadget(Back,10,145,5,20,15);| SetWindowText(Panel8,'8');| SetWindowAttr(Panel8,1,0);| SetWindowAttr(Panel8,2,8421504);| Panel9:=CreateGadget(Back,10,165,5,20,15);| SetWindowText(Panel9,'9');| SetWindowAttr(Panel9,1,0);| SetWindowAttr(Panel9,2,8421504);| Panel10:=CreateGadget(Back,10,185,5,20,15);| SetWindowText(Panel10,'10');| SetWindowAttr(Panel10,1,0);| SetWindowAttr(Panel10,2,8421504);| Panel11:=CreateGadget(Back,10,5,20,20,15);| SetWindowText(Panel11,'11');| SetWindowAttr(Panel11,1,0);| SetWindowAttr(Panel11,2,8421504);| Panel12:=CreateGadget(Back,10,25,20,20,15);| SetWindowText(Panel12,'12');| SetWindowAttr(Panel12,1,0);| SetWindowAttr(Panel12,2,8421504);| Panel13:=CreateGadget(Back,10,45,20,20,15);| SetWindowText(Panel13,'13');| SetWindowAttr(Panel13,1,0);| SetWindowAttr(Panel13,2,8421504);| Panel14:=CreateGadget(Back,10,65,20,20,15);| SetWindowText(Panel14,'14');| SetWindowAttr(Panel14,1,0);| SetWindowAttr(Panel14,2,8421504);| Panel15:=CreateGadget(Back,10,85,20,20,15);| SetWindowText(Panel15,'15');| SetWindowAttr(Panel15,1,0);| SetWindowAttr(Panel15,2,8421504);| Panel16:=CreateGadget(Back,10,105,20,20,15);| SetWindowText(Panel16,'16');| SetWindowAttr(Panel16,1,0);| SetWindowAttr(Panel16,2,8421504);| Panel17:=CreateGadget(Back,10,125,20,20,15);| SetWindowText(Panel17,'17');| SetWindowAttr(Panel17,1,0);| SetWindowAttr(Panel17,2,8421504);| Panel18:=CreateGadget(Back,10,145,20,20,15);| SetWindowText(Panel18,'18');| SetWindowAttr(Panel18,1,0);| SetWindowAttr(Panel18,2,8421504);| Panel19:=CreateGadget(Back,10,165,20,20,15);| SetWindowText(Panel19,'19');| SetWindowAttr(Panel19,1,0);| SetWindowAttr(Panel19,2,8421504);| Panel20:=CreateGadget(Back,10,185,20,20,15);| SetWindowText(Panel20,'20');| SetWindowAttr(Panel20,1,0);| SetWindowAttr(Panel20,2,8421504);| Panel21:=CreateGadget(Back,10,5,35,20,15);| SetWindowText(Panel21,'21');| SetWindowAttr(Panel21,1,0);| SetWindowAttr(Panel21,2,8421504);| Panel22:=CreateGadget(Back,10,25,35,20,15);| SetWindowText(Panel22,'22');| SetWindowAttr(Panel22,1,0);| SetWindowAttr(Panel22,2,8421504);| Panel23:=CreateGadget(Back,10,45,35,20,15);| SetWindowText(Panel23,'23');| SetWindowAttr(Panel23,1,0);| SetWindowAttr(Panel23,2,8421504);| Panel24:=CreateGadget(Back,10,65,35,20,15);| SetWindowText(Panel24,'24');| SetWindowAttr(Panel24,1,0);| SetWindowAttr(Panel24,2,8421504);| Panel25:=CreateGadget(Back,10,85,35,20,15);| SetWindowText(Panel25,'25');| SetWindowAttr(Panel25,1,0);| SetWindowAttr(Panel25,2,8421504);| Panel26:=CreateGadget(Back,10,105,35,20,15);| SetWindowText(Panel26,'26');| SetWindowAttr(Panel26,1,0);| SetWindowAttr(Panel26,2,8421504);| Panel27:=CreateGadget(Back,10,125,35,20,15);| SetWindowText(Panel27,'27');| SetWindowAttr(Panel27,1,0);| SetWindowAttr(Panel27,2,8421504);| Panel28:=CreateGadget(Back,10,145,35,20,15);| SetWindowText(Panel28,'28');| SetWindowAttr(Panel28,1,0);| SetWindowAttr(Panel28,2,8421504);| Panel29:=CreateGadget(Back,10,165,35,20,15);| SetWindowText(Panel29,'29');| SetWindowAttr(Panel29,1,0);| SetWindowAttr(Panel29,2,8421504);| Panel30:=CreateGadget(Back,10,185,35,20,15);| SetWindowText(Panel30,'30');| SetWindowAttr(Panel30,1,0);| SetWindowAttr(Panel30,2,8421504);| Panel31:=CreateGadget(Back,10,5,50,20,15);| SetWindowText(Panel31,'31');| SetWindowAttr(Panel31,1,0);| SetWindowAttr(Panel31,2,8421504);| Panel32:=CreateGadget(Back,10,25,50,20,15);| SetWindowText(Panel32,'32');| SetWindowAttr(Panel32,1,0);| SetWindowAttr(Panel32,2,8421504);| Panel33:=CreateGadget(Back,10,45,50,20,15);| SetWindowText(Panel33,'33');| SetWindowAttr(Panel33,1,0);| SetWindowAttr(Panel33,2,8421504);| Panel34:=CreateGadget(Back,10,65,50,20,15);| SetWindowText(Panel34,'34');| SetWindowAttr(Panel34,1,0);| SetWindowAttr(Panel34,2,8421504);| Panel35:=CreateGadget(Back,10,85,50,20,15);| SetWindowText(Panel35,'35');| SetWindowAttr(Panel35,1,0);| SetWindowAttr(Panel35,2,8421504);| Panel36:=CreateGadget(Back,10,105,50,20,15);| SetWindowText(Panel36,'36');| SetWindowAttr(Panel36,1,0);| SetWindowAttr(Panel36,2,8421504);| Panel37:=CreateGadget(Back,10,125,50,20,15);| SetWindowText(Panel37,'37');| SetWindowAttr(Panel37,1,0);| SetWindowAttr(Panel37,2,8421504);| Panel38:=CreateGadget(Back,10,145,50,20,15);| SetWindowText(Panel38,'38');| SetWindowAttr(Panel38,1,0);| SetWindowAttr(Panel38,2,8421504);| Panel39:=CreateGadget(Back,10,165,50,20,15);| SetWindowText(Panel39,'39');| SetWindowAttr(Panel39,1,0);| SetWindowAttr(Panel39,2,8421504);| Panel40:=CreateGadget(Back,10,185,50,20,15);| SetWindowText(Panel40,'40');| SetWindowAttr(Panel40,1,0);| SetWindowAttr(Panel40,2,8421504);| Panel41:=CreateGadget(Back,10,5,65,20,15);| SetWindowText(Panel41,'41');| SetWindowAttr(Panel41,1,0);| SetWindowAttr(Panel41,2,8421504);| Panel42:=CreateGadget(Back,10,25,65,20,15);| SetWindowText(Panel42,'42');| SetWindowAttr(Panel42,1,0);| SetWindowAttr(Panel42,2,8421504);| Panel43:=CreateGadget(Back,10,45,65,20,15);| SetWindowText(Panel43,'43');| SetWindowAttr(Panel43,1,0);| SetWindowAttr(Panel43,2,8421504);| Panel44:=CreateGadget(Back,10,65,65,20,15);| SetWindowText(Panel44,'44');| SetWindowAttr(Panel44,1,0);| SetWindowAttr(Panel44,2,8421504);| Panel45:=CreateGadget(Back,10,85,65,20,15);| SetWindowText(Panel45,'45');| SetWindowAttr(Panel45,1,0);| SetWindowAttr(Panel45,2,8421504);| Panel46:=CreateGadget(Back,10,105,65,20,15);| SetWindowText(Panel46,'46');| SetWindowAttr(Panel46,1,0);| SetWindowAttr(Panel46,2,8421504);| Panel47:=CreateGadget(Back,10,125,65,20,15);| SetWindowText(Panel47,'47');| SetWindowAttr(Panel47,1,0);| SetWindowAttr(Panel47,2,8421504);| Panel48:=CreateGadget(Back,10,145,65,20,15);| SetWindowText(Panel48,'48');| SetWindowAttr(Panel48,1,0);| SetWindowAttr(Panel48,2,8421504);| Panel49:=CreateGadget(Back,10,165,65,20,15);| SetWindowText(Panel49,'49');| SetWindowAttr(Panel49,1,0);| SetWindowAttr(Panel49,2,8421504);| Panel50:=CreateGadget(Back,10,185,65,20,15);| SetWindowText(Panel50,'50');| SetWindowAttr(Panel50,1,0);| SetWindowAttr(Panel50,2,8421504);| Panel51:=CreateGadget(Back,10,5,80,20,15);| SetWindowText(Panel51,'51');| SetWindowAttr(Panel51,1,0);| SetWindowAttr(Panel51,2,8421504);| Panel52:=CreateGadget(Back,10,25,80,20,15);| SetWindowText(Panel52,'52');| SetWindowAttr(Panel52,1,0);| SetWindowAttr(Panel52,2,8421504);| Panel53:=CreateGadget(Back,10,45,80,20,15);| SetWindowText(Panel53,'53');| SetWindowAttr(Panel53,1,0);| SetWindowAttr(Panel53,2,8421504);| Panel54:=CreateGadget(Back,10,65,80,20,15);| SetWindowText(Panel54,'54');| SetWindowAttr(Panel54,1,0);| SetWindowAttr(Panel54,2,8421504);| Panel55:=CreateGadget(Back,10,85,80,20,15);| SetWindowText(Panel55,'55');| SetWindowAttr(Panel55,1,0);| SetWindowAttr(Panel55,2,8421504);| Panel56:=CreateGadget(Back,10,105,80,20,15);| SetWindowText(Panel56,'56');| SetWindowAttr(Panel56,1,0);| SetWindowAttr(Panel56,2,8421504);| Panel57:=CreateGadget(Back,10,125,80,20,15);| SetWindowText(Panel57,'57');| SetWindowAttr(Panel57,1,0);| SetWindowAttr(Panel57,2,8421504);| Panel58:=CreateGadget(Back,10,145,80,20,15);| SetWindowText(Panel58,'58');| SetWindowAttr(Panel58,1,0);| SetWindowAttr(Panel58,2,8421504);| Panel59:=CreateGadget(Back,10,165,80,20,15);| SetWindowText(Panel59,'59');| SetWindowAttr(Panel59,1,0);| SetWindowAttr(Panel59,2,8421504);| Panel60:=CreateGadget(Back,10,185,80,20,15);| SetWindowText(Panel60,'60');| SetWindowAttr(Panel60,1,0);| SetWindowAttr(Panel60,2,8421504);| Panel61:=CreateGadget(Back,10,5,95,20,15);| SetWindowText(Panel61,'61');| SetWindowAttr(Panel61,1,0);| SetWindowAttr(Panel61,2,8421504);| Panel62:=CreateGadget(Back,10,25,95,20,15);| SetWindowText(Panel62,'62');| SetWindowAttr(Panel62,1,0);| SetWindowAttr(Panel62,2,8421504);| Panel63:=CreateGadget(Back,10,45,95,20,15);| SetWindowText(Panel63,'63');| SetWindowAttr(Panel63,1,0);| SetWindowAttr(Panel63,2,8421504);| Panel64:=CreateGadget(Back,10,65,95,20,15);| SetWindowText(Panel64,'64');| SetWindowAttr(Panel64,1,0);| SetWindowAttr(Panel64,2,8421504);| Panel65:=CreateGadget(Back,10,85,95,20,15);| SetWindowText(Panel65,'65');| SetWindowAttr(Panel65,1,0);| SetWindowAttr(Panel65,2,8421504);| Panel66:=CreateGadget(Back,10,105,95,20,15);| SetWindowText(Panel66,'66');| SetWindowAttr(Panel66,1,0);| SetWindowAttr(Panel66,2,8421504);| Panel67:=CreateGadget(Back,10,125,95,20,15);| SetWindowText(Panel67,'67');| SetWindowAttr(Panel67,1,0);| SetWindowAttr(Panel67,2,8421504);| Panel68:=CreateGadget(Back,10,145,95,20,15);| SetWindowText(Panel68,'68');| SetWindowAttr(Panel68,1,0);| SetWindowAttr(Panel68,2,8421504);| Panel69:=CreateGadget(Back,10,165,95,20,15);| SetWindowText(Panel69,'69');| SetWindowAttr(Panel69,1,0);| SetWindowAttr(Panel69,2,8421504);| Panel70:=CreateGadget(Back,10,185,95,20,15);| SetWindowText(Panel70,'70');| SetWindowAttr(Panel70,1,0);| SetWindowAttr(Panel70,2,8421504);| Panel71:=CreateGadget(Back,10,5,110,20,15);| SetWindowText(Panel71,'71');| SetWindowAttr(Panel71,1,0);| SetWindowAttr(Panel71,2,8421504);| Panel72:=CreateGadget(Back,10,25,110,20,15);| SetWindowText(Panel72,'72');| SetWindowAttr(Panel72,1,0);| SetWindowAttr(Panel72,2,8421504);| Panel73:=CreateGadget(Back,10,45,110,20,15);| SetWindowText(Panel73,'73');| SetWindowAttr(Panel73,1,0);| SetWindowAttr(Panel73,2,8421504);| Panel74:=CreateGadget(Back,10,65,110,20,15);| SetWindowText(Panel74,'74');| SetWindowAttr(Panel74,1,0);| SetWindowAttr(Panel74,2,8421504);| Panel75:=CreateGadget(Back,10,85,110,20,15);| SetWindowText(Panel75,'75');| SetWindowAttr(Panel75,1,0);| SetWindowAttr(Panel75,2,8421504);| Panel76:=CreateGadget(Back,10,105,110,20,15);| SetWindowText(Panel76,'76');| SetWindowAttr(Panel76,1,0);| SetWindowAttr(Panel76,2,8421504);| Panel77:=CreateGadget(Back,10,125,110,20,15);| SetWindowText(Panel77,'77');| SetWindowAttr(Panel77,1,0);| SetWindowAttr(Panel77,2,8421504);| Panel78:=CreateGadget(Back,10,145,110,20,15);| SetWindowText(Panel78,'78');| SetWindowAttr(Panel78,1,0);| SetWindowAttr(Panel78,2,8421504);| Panel79:=CreateGadget(Back,10,165,110,20,15);| SetWindowText(Panel79,'79');| SetWindowAttr(Panel79,1,0);| SetWindowAttr(Panel79,2,8421504);| Panel80:=CreateGadget(Back,10,185,110,20,15);| SetWindowText(Panel80,'80');| SetWindowAttr(Panel80,1,0);| SetWindowAttr(Panel80,2,8421504);| Button1:=CreateGadget(Back,4,5,170,40,20);| SetWindowText(Button1,'Run');| SetWindowAttr(Button1,6,0);| SetEvent(Button1,1,'/runscript [keno] run');| Button2:=CreateGadget(Back,4,45,170,40,20);| SetWindowText(Button2,'Clear');| SetEvent(Button2,1,'/runscript [keno] clear');| Button4:=CreateGadget(Back,4,85,170,40,20);| SetWindowText(Button4,'Keep');| SetEvent(Button4,1,'/runscript [keno] keep'); | Button3:=CreateGadget(Back,4,125,170,40,20);| SetWindowText(Button3,'Pick');| SetWindowAttr(Button3,9,1);| SetEvent(Button3,1,'/runscript [keno] pick');| Edit1:=CreateGadget(Back,2,165,170,20,20);| Label1:=CreateGadget(Back,1,5,125,50,10);| SetWindowText(Label1,' Current');| SetWindowAttr(Label1,1,8421376);| SetWindowAttr(Label1,2,65535);| Label2:=CreateGadget(Back,1,5,136,50,10);| SetWindowText(Label2,'Winnings');| SetWindowAttr(Label2,1,8421376);| SetWindowAttr(Label2,2,65535);| WinTotal:=CreateGadget(Back,1,8,150,50,10);| SetWindowText(WinTotal,'100');| SetWindowAttr(WinTotal,1,8421376);| SetWindowAttr(WinTotal,2,16777215);| Label3:=CreateGadget(Back,1,85,125,50,10);| SetWindowText(Label3,'Won this');| SetWindowAttr(Label3,1,8421376);| SetWindowAttr(Label3,2,65535);| Label4:=CreateGadget(Back,1,85,136,50,10);| SetWindowText(Label4,' Game');| SetWindowAttr(Label4,1,8421376);| SetWindowAttr(Label4,2,65535);| ThisWin:=CreateGadget(Back,1,90,150,50,10);| SetWindowText(ThisWin,'0');| SetWindowAttr(ThisWin,1,8421376);| SetWindowAttr(ThisWin,2,16777215);| Label5:=CreateGadget(Back,1,167,125,50,10);| SetWindowText(Label5,' Bet');| SetWindowAttr(Label5,1,8421376);| SetWindowAttr(Label5,2,65535);| Label6:=CreateGadget(Back,1,167,136,50,10);| SetWindowText(Label6,'Amount');| SetWindowAttr(Label6,1,8421376);| SetWindowAttr(Label6,2,65535);| BetAmount:=CreateGadget(Back,2,165,150,40,20);| SetWindowText(BetAmount,'');| Button5:=CreateGadget(Back,4,185,170,20,20);| SetWindowText(Button5,'?');| SetEvent(Button5,1,'/runscript [keno] help');|end|else if StrLower($1) = 'run' then|begin|if betdone = 0 then begin| $bet:=GetWindowText(BetAmount);| if $bet='' then | begin| SetWindowText(BetAmount,'1');| $bet:='1';| end;| $prevwin:=GetWindowText(WinTotal);| if strtoint($prevwin) = 0 then| begin| SetWindowAttr(Back,7,0);| SetWindowText(KenoWin,'No credits left! GAME OVER!');| halt;| end;| if strtoint($bet) > strtoint($prevwin) then| begin| $bet := $prevwin;| SetWindowText(BetAmount,$bet);| end;| $prevwin:=inttostr(strtoint($prevwin)-strtoint($bet));| SetWindowText(WinTotal,$prevwin);| betdone:=1;|end;|SetWindowAttr(Button1,6,0);|SetWindowAttr(Button2,6,0);|SetWindowAttr(Button3,6,0);|SetWindowAttr(Button4,6,0);|SetWindowAttr(Edit1,6,0);|s:=random(80)+1;|$select:='['+InttoStr(s)+']';|if StrPos($select,$done) > 0 then command('/runscript [keno] run')|else begin| loop:=loop+1;| if loop > 20 then command('/runscript [keno] checkwin')| else begin| command('/runscript [keno] findpanel');| begin| cellback:=GetWindowAttr(light,1);| if cellback > 0 then | begin| Setwindowattr(light,1,255);| SetWindowAttr(light,2,16777215);| match:=match+1;| end| else | begin| Setwindowattr(light,1,65535);| Setwindowattr(light,2,0);| end;| end;| $done:=$done+$select;| w:=1;| for w := 1 to 30000 do| begin| breathe;| end;| command('/runscript [keno] run');| end;| SetWindowAttr(Button2,6,1);| SetWindowAttr(Button4,6,1);| betdone:=0;|end;|end|else if StrLower($1) = 'checkwin' then|begin| gamewin:=0;| if pickcount = 1 and match = 1 then gamewin:=StrToInt($bet) * 3;| if pickcount = 2 and match = 1 then gamewin:=StrToInt($bet);| if pickcount = 2 and match = 2 then gamewin:=StrToInt($bet) * 6;| if pickcount = 3 and match = 2 then gamewin:=StrToInt($bet) * 2;| if pickcount = 3 and match = 3 then gamewin:=StrToInt($bet) * 3;| if pickcount = 4 and match = 2 then gamewin:=StrToInt($bet);| if pickcount = 4 and match = 3 then gamewin:=StrToInt($bet) * 4;| if pickcount = 4 and match = 4 then gamewin:=StrToInt($bet) * 115;| if pickcount = 5 and match = 0 then gamewin:=StrToInt($bet);| if pickcount = 5 and match = 3 then gamewin:=StrToInt($bet) * 2;| if pickcount = 5 and match = 4 then gamewin:=StrToInt($bet) * 12;| if pickcount = 5 and match = 5 then gamewin:=StrToInt($bet) * 310;| if pickcount = 6 and match = 0 then gamewin:=StrToInt($bet);| if pickcount = 6 and match = 3 then gamewin:=StrToInt($bet);| if pickcount = 6 and match = 4 then gamewin:=StrToInt($bet) * 5;| if pickcount = 6 and match = 5 then gamewin:=StrToInt($bet) * 55;| if pickcount = 6 and match = 6 then gamewin:=StrToInt($bet) * 1000;| if pickcount = 7 and match = 0 then gamewin:=StrToInt($bet);| if pickcount = 7 and match = 3 then gamewin:=StrToInt($bet);| if pickcount = 7 and match = 4 then gamewin:=StrToInt($bet) * 2;| if pickcount = 7 and match = 5 then gamewin:=StrToInt($bet) * 8;| if pickcount = 7 and match = 6 then gamewin:=StrToInt($bet) * 80;| if pickcount = 7 and match = 7 then gamewin:=StrToInt($bet) * 5000;| if pickcount = 8 and match = 0 then gamewin:=StrToInt($bet);| if pickcount = 8 and match = 4 then gamewin:=StrToInt($bet);| if pickcount = 8 and match = 5 then gamewin:=StrToInt($bet) * 6;| if pickcount = 8 and match = 6 then gamewin:=StrToInt($bet) * 55;| if pickcount = 8 and match = 7 then gamewin:=StrToInt($bet) * 1000;| if pickcount = 8 and match = 8 then gamewin:=StrToInt($bet) * 20000;| if pickcount = 9 and match = 0 then gamewin:=StrToInt($bet) * 2;| if pickcount = 9 and match = 4 then gamewin:=StrToInt($bet);| if pickcount = 9 and match = 5 then gamewin:=StrToInt($bet) * 5;| if pickcount = 9 and match = 6 then gamewin:=StrToInt($bet) * 15;| if pickcount = 9 and match = 7 then gamewin:=StrToInt($bet) * 200;| if pickcount = 9 and match = 8 then gamewin:=StrToInt($bet) * 2000;| if pickcount = 9 and match = 9 then gamewin:=StrToInt($bet) * 100000;| if pickcount = 10 and match = 0 then gamewin:=StrToInt($bet) * 2;| if pickcount = 10 and match = 5 then gamewin:=StrToInt($bet) * 2;| if pickcount = 10 and match = 6 then gamewin:=StrToInt($bet) * 11;| if pickcount = 10 and match = 7 then gamewin:=StrToInt($bet) * 50;| if pickcount = 10 and match = 8 then gamewin:=StrToInt($bet) * 500;| if pickcount = 10 and match = 9 then gamewin:=StrToInt($bet) * 10000;| if pickcount = 10 and match = 10 then gamewin:=StrToInt($bet) * 1000000;| if gamewin = 0 then SetWindowText(ThisWin,'0')| else| begin| SetWindowText(ThisWin,IntToStr(gamewin));| SetWindowText(WinTotal,IntToStr(strtoint($prevwin)+gamewin));| end;| match := 0;|end|else if StrLower($1) = 'clear' then|begin| c := 1;| for c := 1 to 80 do| begin| s := c;| command('/runscript [keno] findpanel');| Setwindowattr(light,1,0);| Setwindowattr(light,2,8421504);| SetWindowAttr(Edit1,6,1);| SetWindowAttr(Button3,6,1);| pickcount:=0;| $picklist:='';| $done:='';| loop:=0;| end;| SetWindowText(ThisWin,'0')|end|else if StrLower($1) = 'keep' then|begin| c := 1;| for c := 1 to 80 do| begin| s := c;| command('/runscript [keno] findpanel');| cellback:=GetWindowAttr(light,1);| if cellback = 255 or cellback = 16777215 then | begin| Setwindowattr(light,1,16777215);| Setwindowattr(light,2,0);| SetWindowAttr(Button1,6,1);| end| else| begin| Setwindowattr(light,1,0);| Setwindowattr(light,2,8421504);| end;| end;| if pickcount < 10 then SetWindowAttr(Edit1,6,1);| if pickcount < 10 then SetWindowAttr(Button3,6,1);| $done:='';| loop:=0;| SetWindowText(ThisWin,'0')|end|else if StrLower($1) = 'pick' then|begin| $pick:=GetWindowText(Edit1);| s:=StrToInt($pick);| $pick:='['+$pick+']';| if s < 1 or s > 80 or StrPos($pick,$picklist) > 0 then command('/beep')| else| begin| $picklist:=$picklist+$pick;| command('/runscript [keno] findpanel');| SetWindowAttr(light,1,16777215);| SetWindowAttr(light,2,0);| SetWindowText(Edit1,'');| pickcount:=pickcount+1;| SetWindowAttr(Button1,6,1);| if pickcount=10 then| begin| SetWindowAttr(Edit1,6,0);| SetWindowAttr(Button3,6,0);| end;| end;|end;
[LAGMETER]:{ usage: add the following alias: called lagmeter|-------------------------------|/define lagmeter=0|/define lagstatus=0|/runscript [lagmeter] create|-------------------------------|then just type /lagmeter to open it|}|if *1 = 'create' then|begin| if winid <> 0 then | begin| writeln(char(15),'LAGMETER window already open');| writeln('-');| halt;| end;| winid := createwindow('L@g0mEtEr',0,66,80,45); | lagpanel := creategadget(winid,10,2,2,76,22);| setevent(winid,1,'/runscript [lagmeter] close');| setwindowattr(lagpanel,3,5);| setwindowattr(lagpanel,1,rgb(0,0,0));| lagmeter := creategadget(lagpanel,1,2,2,76,20);| setwindowattr(lagmeter,2,rgb(255,0,0));| command('/callback PONG [lagmeter]');| command('/timer lagometer -1 2 /runscript [lagmeter] ping');|end|else if *1 = 'close' then|begin| winid := 0;| command('/timer lagometer die');|end|else if (*1 = 'ping') then|begin| if lagstatus = 0 then| begin| lagstatus := 1;| command('/verbose PING '+inttostr(unixtime));| end;|end|else|begin| $s := *1;| p := strpos(':',$s);| strdel($s,1,p);| seconds := unixtime-strtoint($s);| {writeln('computed seconds = ',seconds);}| if seconds > 10 then seconds := 10;| if seconds < 0 then seconds := 0;| if seconds < 5 then setwindowattr(lagmeter,2,rgb(0,255,0))| else if seconds < 7 then setwindowattr(lagmeter,2,rgb(255,255,0))| else setwindowattr(lagmeter,2,rgb(255,0,0));| $newlabel := '';| for i := 1 to seconds do| $newlabel := $newlabel + 'ÿÿ';| if $newlabel = '' then $newlabel := 'ÿ';| setwindowtext(lagmeter,$newlabel);| lagstatus := 0;| scriptresult := 0;|end;
[LOOPS]:{|this is my loops pil|useage |popup loops:/runscript [loops] $?="message"|alias loops:/runscript [loops] *1|---------------------------------------------------------------------------------|need help find me here|#popups_for_fun neato.org:6667|#pirch / #chatcircuit irc.mscomm.com:6667|----------------------------------------------------------------------------------|budman |}|$output := '';|$name := $1;|$text := $2 ;|$parm3 := *3 ;|$fill := '11o║░║o';|$add :=\2+\3 ;|$add2 := \2+\3 ;|for i := 1 to strlen($text) do|begin|$word := \2+\3+strupper(strcopy($text,i,1))+\2+\3;|$output := $output+$fill+$word;|end;|command('/msg ',$audience,' ',$fill+$add+$name+$add2+$output+$fill+$parm3);
[LUSER]:{SunScript LuserCallback⌐ Version 1.0}|{Created by Dot and bbb}|{/runscript [luser] start}|{This script was released on 12/05/96...|You may modify but please don't change the comment brackets... if you need a more|detailed help.. look in our help file..if you did not get a help file you can get one at|http://www.adorable.com/sunscript}|$bring:=$1; |$luserlado:=*2;|$luserlado2:=strtoken($luserlado); |$luserlado3:=*4;|if $luserlado2 = '251' then|begin|$add:=strtoken($luserlado3);|$add2:=strtoken($luserlado3);|$add3:=strtoken($luserlado3);|$add4:=strtoken($luserlado3);|$add5:=strtoken($luserlado3);|$add6:=strtoken($luserlado3);|$add7:=strtoken($luserlado3);|$add8:=strtoken($luserlado3);|$add9:=strtoken($luserlado3);|command('/runscript [luser] works');|command('/callback -d 251');|end;|if $luserlado2 = '252' then|begin|$thanksgiving:=strtoken($luserlado3);|command('/callback -d 252');|command('/runscript [luser] works2');|end;|if $luserlado2 = '254' then|begin|$turkeyday:=strtoken($luserlado3);|command('/callback -d 254');|command('/runscript [luser] works3');|end;|if $luserlado2 = '255' then|begin|$minus:=strtoken($luserlado3);|$minus2:=strtoken($luserlado3);|$minus3:=strtoken($luserlado3);|$minus4:=strtoken($luserlado3);|$minus5:=strtoken($luserlado3);|$minus6:=strtoken($luserlado3);|command('/callback -d 255');|command('/runscript [luser] works4');|end;|if strupper($bring)='START' then|begin|destroywindow(iton);|iton:=createwindow('SunScript LuserCallback',0,50,150,315);|prayer:=creategadget(iton,1,1,3,50,20);|setwindowtext(prayer,'Users Online');|forthe:=creategadget(iton,2,95,1,37,20);|setwindowattr(forthe,1,0);|setwindowattr(forthe,2,16711935);|dying:=creategadget(iton,1,1,25,50,20);|setwindowtext(dying,'Invisible');|dreaming:=creategadget(iton,2,95,23,37,20);|setwindowattr(dreaming,1,0);|setwindowattr(dreaming,2,16711935);|inmetaphors:=creategadget(iton,1,1,47,50,20);|setwindowtext(inmetaphors,'Combined Users');|dontcry:=creategadget(iton,2,95,45,37,20);|setwindowattr(dontcry,1,0);|setwindowattr(dontcry,2,16711935);|fastchanges:=creategadget(iton,1,1,69,50,20);|setwindowtext(fastchanges,'Servers Connected');|kissfrom:=creategadget(iton,2,95,67,37,20);|setwindowattr(kissfrom,1,0);|setwindowattr(kissfrom,2,16711935);|arose:=creategadget(iton,1,1,91,50,20);|setwindowtext(arose,'IRCOPs Online');|people:=creategadget(iton,2,95,89,37,20);|setwindowattr(people,1,0);|setwindowattr(people,2,16711935);|askingwhy:=creategadget(iton,1,1,113,50,20);|setwindowtext(askingwhy,'Channels Formed');|newborn:=creategadget(iton,2,95,111,37,20);|setwindowattr(newborn,1,0);|setwindowattr(newborn,2,16711935);|friend:=creategadget(iton,1,1,135,50,20);|setwindowtext(friend,'Clients');|ificould:=creategadget(iton,2,95,133,37,20);|setwindowattr(ificould,1,0);|setwindowattr(ificould,2,16711935);|nosong:=creategadget(iton,1,1,157,50,20);|setwindowtext(nosong,'Servers');|nosong2:=creategadget(iton,2,95,155,37,20);|setwindowattr(nosong2,1,0);|setwindowattr(nosong2,2,16711935);|imalive:=creategadget(iton,4,7,220,60,20);|setwindowtext(imalive,' Check ');|setevent(imalive,1,'/runscript [luser] glasses');|clubfx:=creategadget(iton,4,70,220,60,20);|setwindowtext(clubfx,'Continuous');|setevent(clubfx,1,'/runscript [luser] glassesgirl');|inheaven:=creategadget(iton,1,1,190,50,20);|setwindowtext(inheaven,'Timer in seconds');|discskip:=creategadget(iton,2,95,187,37,20);|setwindowattr(discskip,1,0);|setwindowattr(discskip,2,16711935);|setwindowtext(discskip,'60');|setevent(iton,1,'/runscript [luser] bybyall');|heyyoulil:=creategadget(iton,4,70,243,60,20);|heyyouabout:=creategadget(iton,4,7,243,60,20);|hidemenow:=creategadget(iton,4,37,265,60,20);|setwindowtext(heyyoulil,'Minimize');|setwindowtext(heyyouabout,'About');|setwindowtext(hidemenow,'Hide');|setevent(heyyouabout,1,'/runscript [luser] about'); |setevent(heyyoulil,1,'/runscript [luser] LIL');|setevent(hidemenow,1,'/runscript [luser] shrinking');|end;|if $bring='glasses' then|begin|command('/callback 251 [luser]');|command('/callback 254 [luser]');|command('/callback 252 [luser]');|command('/callback 255 [luser]');|command('/lusers');|end;|if $bring='works' then|begin|comb3:=0;|combe:=strtoint($add3);|combe2:=strtoint($add6);|combe3:= combe + combe2;|$comb4 := inttostr(combe3);|setwindowtext(forthe,$add3);|setwindowtext(dreaming,$add6);|setwindowtext(dontcry,$comb4);|setwindowtext(kissfrom,$add9);|command('/runscript [luser] addclear');|end;|if $bring='addclear' then|begin|comb3:=0;|combe:=0;|combe2:=0;|end;|if $bring='works2' then|begin|setwindowtext(people,$thanksgiving);|end;|if $bring='works3' then|begin|setwindowtext(newborn,$turkeyday);|end;|if $bring='works4' then|begin|setwindowtext(ificould,$minus3);|setwindowtext(nosong2,$minus6);|end;|if $bring='glassesgirl' then|begin|$wowluser:=getwindowtext(discskip);|setwindowtext(clubfx,' Stop ');|setevent(clubfx,1,'/runscript [luser] okaystop');|command('/timer lusertim -1 ',$wowluser,' ','/runscript [luser] excluded');|end;|if $bring='excluded' then|begin|command('/callback 251 [luser]');|command('/callback 254 [luser]');|command('/callback 252 [luser]');|command('/callback 255 [luser]');|command('/lusers');|end;|if $bring='okaystop' then|begin|command('/timer lusertim die');|setwindowtext(clubfx,'Restart');|setevent(clubfx,1,'/runscript [luser] glassesgirl');|end;|if $bring='bybyall' then|begin|command('/timer lusertim die');|command('/callback -d 251');|command('/callback -d 252');|command('/callback -d 254');|command('/callback -d 255');|end;|if strupper($bring)='LIL' then|begin|destroywindow(iton);|iton:=createwindow('SunScript Luser',0,50,50,363);|forthe:=creategadget(iton,2,5,1,37,20);|setwindowattr(forthe,1,0);|setwindowattr(forthe,2,16711935);|dreaming:=creategadget(iton,2,5,23,37,20);|setwindowattr(dreaming,1,0);|setwindowattr(dreaming,2,16711935);|dontcry:=creategadget(iton,2,5,45,37,20);|setwindowattr(dontcry,1,0);|setwindowattr(dontcry,2,16711935);|kissfrom:=creategadget(iton,2,5,67,37,20);|setwindowattr(kissfrom,1,0);|setwindowattr(kissfrom,2,16711935);|people:=creategadget(iton,2,5,89,37,20);|setwindowattr(people,1,0);|setwindowattr(people,2,16711935);|newborn:=creategadget(iton,2,5,111,37,20);|setwindowattr(newborn,1,0);|setwindowattr(newborn,2,16711935);|ificould:=creategadget(iton,2,5,133,37,20);|setwindowattr(ificould,1,0);|setwindowattr(ificould,2,16711935);|nosong2:=creategadget(iton,2,5,155,37,20);|setwindowattr(nosong2,1,0);|setwindowattr(nosong2,2,16711935);|imalive:=creategadget(iton,4,3,232,42,20);|setwindowtext(imalive,' Check ');|setevent(imalive,1,'/runscript [luser] glasses');|clubfx:=creategadget(iton,4,3,254,42,20);|setwindowtext(clubfx,'Cont');|setevent(clubfx,1,'/runscript [luser] glassesgirl');|inheaven:=creategadget(iton,1,7,209,45,20);|setwindowtext(inheaven,'Timer');|discskip:=creategadget(iton,2,5,187,37,20);|setwindowattr(discskip,1,0);|setwindowattr(discskip,2,16711935);|setwindowtext(discskip,'60');|setevent(iton,1,'/runscript [luser] bybyall');|heyyoubig:=creategadget(iton,4,3,276,42,20);|heyyouhide:=creategadget(iton,4,3,298,42,20);|heyyouabout:=creategadget(iton,4,3,320,42,20);|setwindowtext(heyyoubig,'Max');|setwindowtext(heyyouhide,'Hide');|setwindowtext(heyyouabout,'About');|setevent(heyyouhide,1,'/runscript [luser] shrinking'); |setevent(heyyoubig,1,'/runscript [luser] start'); |setevent(heyyouabout,1,'/runscript [luser] about'); |end;|if strupper($bring)='ABOUT' then |begin|sunscript:=createwindow('About WiLdErScript PILs',150,150,270,150);|aboutthansk:=creategadget(sunscript,2,62,10,135,20);|setwindowtext(aboutthansk,'WiLdEr ScRiPtS scanner'); |setwindowattr(aboutthansk,2,16777215);|setwindowattr(aboutthansk,1,0);|aboutlovers:=creategadget(sunscript,2,24,40,100,20);|setwindowattr(aboutlovers,2,16711935);|setwindowattr(aboutlovers,1,0);|aboutyounme:=creategadget(sunscript,2,140,40,100,20);|setwindowattr(aboutyounme,2,16711935);|setwindowattr(aboutyounme,1,0);|aboutsonyspeakers:=creategadget(sunscript,2,82,65,100,20);|setwindowattr(aboutsonyspeakers,2,16711935);|setwindowattr(aboutsonyspeakers,1,0);|anotherlabel:=creategadget(sunscript,2,45,93,180,20);|setwindowattr(anotherlabel,2,16777215);|setwindowattr(anotherlabel,1,0);|setwindowtext(anotherlabel,'http://www.redfm.com/wildhoney');|command('/timer lusersmile -1 .07 /runscript [luser] woowoo');|command('/timer luserabout23 -1 .07 /runscript [luser] ewww');|end;|if strupper($bring)='WOOWOO' then |begin|abc:=abc+1;|if abc=1 then|begin|setwindowattr(aboutthansk,2,16777215);|setwindowattr(anotherlabel,2,16777215);|end;|if abc=2 then|begin|setwindowattr(aboutthansk,2,255);|setwindowattr(anotherlabel,2,255);|end;|if abc=3 then|begin|setwindowattr(aboutthansk,2,16711680);|setwindowattr(anotherlabel,2,16711680);|abc:=0;|end;|end;|setevent(sunscript,1,'/runscript [luser] aboutstop');|if strupper($bring)='EWWW' then |begin|efg:=efg+1;|if efg <= 30 then|begin|setwindowtext(aboutlovers,' Created by ');|setwindowtext(aboutyounme,' Version ');|setwindowtext(aboutsonyspeakers,' Release Date ');|end;|if efg = 31 then|begin|setwindowtext(aboutlovers,' WiLdHoNeY');|setwindowtext(aboutyounme,' 1.0 ');|setwindowtext(aboutsonyspeakers,' 18/10/97 ');|end;|if efg > 32 and efg < 55 then|begin|$aboutfeedme:=getwindowtext(aboutlovers);|strdel($aboutfeedme,1,1);|setwindowtext(aboutlovers,$aboutfeedme);|$felllikethis:=getwindowtext(aboutyounme);|strdel($felllikethis,1,1);|setwindowtext(aboutyounme,$felllikethis);|$aboutnec:=getwindowtext(aboutsonyspeakers);|strdel($aboutnec,1,1);|setwindowtext(aboutsonyspeakers,$aboutnec);|end;|if efg >=56 and efg <=58 then|begin|setwindowattr(aboutlovers,2,0);|setwindowattr(aboutyounme,2,0);|setwindowattr(aboutsonyspeakers,2,0);|end;|if efg >=58 and efg <=60 then|begin|setwindowattr(aboutlovers,2,16711935);|setwindowattr(aboutyounme,2,16711935);|setwindowattr(aboutsonyspeakers,2,16711935);|end;|if efg >=62 and efg <=64 then|begin|setwindowattr(aboutlovers,2,0);|setwindowattr(aboutyounme,2,0);|setwindowattr(aboutsonyspeakers,2,0);|end;|if efg >=66 and efg <=68 then|begin|setwindowattr(aboutlovers,2,16711935);|setwindowattr(aboutyounme,2,16711935);|setwindowattr(aboutsonyspeakers,2,16711935);|end;|if efg >=68 and efg <=70 then|begin|setwindowattr(aboutlovers,2,0);|setwindowattr(aboutyounme,2,0);|setwindowattr(aboutsonyspeakers,2,0);|end;|if efg >=72 and efg <=74 then|begin|setwindowattr(aboutlovers,2,16711935);|setwindowattr(aboutyounme,2,16711935);|setwindowattr(aboutsonyspeakers,2,16711935);|end;|if efg > 75 and efg < 95 then |begin|$aboutfeedme3:=getwindowtext(aboutlovers);|strdel($aboutfeedme3,1,1);|setwindowtext(aboutlovers,$aboutfeedme3);|$aboutbemyfault:=getwindowtext(aboutyounme);|strdel($aboutbemyfault,1,1);|setwindowtext(aboutyounme,$aboutbemyfault);|$aboutneatoca:=getwindowtext(aboutsonyspeakers);|strdel($aboutneatoca,1,1);|setwindowtext(aboutsonyspeakers,$aboutneatoca);|end;|if efg = 99 then|begin|efg:=0;|end;|end;|if strupper($bring)='ABOUTSTOP' then |begin|command('/timer lusersmile die');|command('/timer luserabout23 die');|end;|if $bring = 'shrinking' then|begin|destroywindow(iton);|iton:=createwindow('Hide',0,0,45,43);|opennow:=creategadget(iton,4,0,0,40,20);|setwindowtext(opennow,'Open');|setevent(opennow,1,'/runscript [luser] openopen');|end;|if $bring = 'openopen' then|begin|destroywindow(iton);|command('/runscript [luser] start');|end;
[MASSDEOP]:usercount := strtoint($members);|$ops := '';|for i := 1 to usercount do|begin| $s := nicklist($audience,i);| if (isop($audience,$s)) and ($s <> $me) then|begin|$ops := $ops + $s + ' ';|end|end;|command('/mode ',$audience,' -oooooooooooooooooo ',$ops);
[MASSGREET]:{----------------------------------------------------------------------------------------------------------|*** Script: MASSGREET|*** Date: 7/9/96|----------------------------------------------------------------------------------------------------------}|$s := '';|opsonly := true;|k := strtoint($members);|for i := 1 to k do|begin| $thisnick := nicklist($audience,i);| if strlen($s+$thisnick) > 255 then| begin| command('/msg ',$audience,' selam 8,12',$s);| $s := '';| end;| if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then| begin| if strlen($s) > 0 then| $s := $s + ', ';| $s := $s + $thisnick; | end;|end;|if strlen($s) > 0 then|begin| command('/msg ',$audience,' selam [ ',$s,' ] [8,12 WiLdEr« ] ');|end;
[MIX2BOLD]:{ Clone Finder - Written by GTi|This will list all the nicks that have clones in a channel, and it will|tell you what the clones of each nick are.|Popups - Channel Main Pane|List All Clones|.List:/runscript [FINDCLONE] # No|.List to Channel:/runscript [FINDCLONE] Yes|This is the first release, I have only done premliminary testing on this.|So far it hasn't had any problems, but I am sure they could possibly occur.|Send any problems to gti@fbibbs.com|Also visit my web page at www.fbibbs.com, dedicated to Pirch and my script|Enjoy|GTi|}|$all := *2; |$clonefile := $pirchpath + 'fclone.ini';|if flag <> 1 then |begin| $cchan := $1;| $sendto := $2;| iniwrite($clonefile, 'CLONES', 'Num', '0');| command('/callback 352 [FINDCLONE]');| command('/callback 315 [FINDCLONE]');| flag := 1;| clonecount := 0;| command('/who ',$cchan);|end;|$code := strtoken($all);|if $code = '352' then|begin| $clonetmp := strtoken($all);| $clonechn := strtoken($all);| $clonename := strtoken($all);| $cloneadd := strtoken($all);| $cloneserver := strtoken($all);| $clonenik := strtoken($all);| $clonetmp := strtoken ($all);| $clonehops := strtoken ($all);| clonecount := clonecount + 1;| $clonec := inttostr(clonecount);| $clonew := $clonenik + ' ' + $cloneadd;| iniwrite($clonefile,'CLONES','Clone' + $clonec , $clonew);| iniwrite($clonefile,'CLONES','Num',$clonec);| halt;| breathe;|end;|if $code = '315' then|begin| command('/callback -d 315');| command('/callback -d 352');| flag := 0;| clonecount := 0;| numclones := 0;|$numclone := iniread($clonefile,'CLONES','Num','Nope');|number := strtoint($numclone);|$clones := '';|start := 2;|command('/display > ',$cchan,' ',\16,'2[----------------------------------------]');|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :2[----------------------------------------]');|command('/display > ',$cchan,' ',\16,'4 Clonelist 2for 12', $cchan);|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :4 Clonelist 2for 12', $cchan);|for i := 1 to number do| begin| breathe;| $search := iniread($clonefile,'CLONES','Clone'+inttostr(i),'Nope');| $snick := strtoken($search);| $sadd := $search;| for j := start to number do| begin| breathe;| $compare := iniread($clonefile,'CLONES','Clone'+inttostr(j),'Nope');| $cnick := strtoken($compare);| $cadd := $compare;| if $sadd = $cadd and $cnick <> 'Null' then| begin| if $clones <> '' then $clones := $clones + ' and ' + $cnick | else| begin| $clones := $cnick;| numclones := numclones +1;| end;| iniwrite($clonefile,'CLONES','Clone'+inttostr(j),'Null');| numclones := numclones + 1;| end;| end;| start := start + 1;| if $clones <> '' then | begin| command('/display > ',$cchan,' ',\16,'12 ',$snick,' 2is a clone of 4',$clones,' 2from12 ',$sadd);| if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :12 ',$snick,' 2is a clone of 4',$clones,' 2from12 ',$sadd);| $clones := '';| end;| end;|if numclones = 0 then | begin| command('/display > ',$cchan,' ',\16,'12No clones found.');| if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :12No clones found.');| end;|if numclones > 0 then | begin| command('/display > ',$cchan,' ',\16,'12Total Number of Clones:2 ',inttostr(numclones));| if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :2Total Number of Clones:12 ',inttostr(numclones));| end;|command('/display > ',$cchan,' ',\16,'4 End of CloneList for 12',$cchan);|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :4 End of CloneList for 12',$cchan);|command('/display > ',$cchan,' ',\16,'2[------------------------------]');|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :2[------------------------------]');|$sendto := 'No';|end;
[MYINFO]:command('/display > info ',\2,'2U are currently Online:4 ',$day,' ',$date,' ',$time,);|command('/display > info ',\2,'2The active url in your web browser:3 ',$activeurl,);|command('/display > info ',\2,'2Your Connected to Server:4 ',$server,);|command('/display > info ',\2,'2Your Running Pirch:7 ',$version,);|command('/display > info ',\2,'2Your Usermodes Are6 ',$usermode,);|command('/display > info ',\2,'------------------------------------------------------',);|command('/display > info ',\2,'12Dcc Download Path is:3 ',$getpath,);|command('/display > info ',\2,'12Logging Path is:3 ',$logpath,);|command('/display > info ',\2,'12Pirch Path is:3 ',$pirchpath,);|command('/display > info ',\2,'12Dcc Upload Path is:3 ',$sendpath,);|command('/display > info ',\2,'12Sound Path is:3 ',$soundpath,);
[MYTRACE]:{ CLIENT TRACE: Traces a client and monitors channels and nick changes|Version: 1.1|Date : 3/5/97|Author : RB_on_Ice|;|Function: This PIL keeps a list box of Client Info by doing a /whois command on 15 second|intervals. It tracks nick changes while the client remains connected.|;|Install:|1. Copy this entire file and paste in an alias PIL called: [MYTRACE]|;|2. Create a normal called MYTRACE and add the following line| ("trace" is an IRCD command... use MYTRACE)|;| /runscript [MYTRACE] start $1|;|3. To run type: /mytrace NICK|}|$cmd := $1;|if $cmd = 'start' then|begin| $whost := 'x';| if $traceactive = '1' then| begin| command('/display > ',$host,' ',\9,'MYTRACE IS ALREADY ACTIVE');| halt;| end;| $selnick := $2;| lpos := strtoint($3);| if lpos < 1 then| lpos := 50;| command('/define traceactive=1');| command('/display > ',$host,' ',\8,'CLIENT TRACE STARTED on: '+$selnick);| { command('/define tracenick=',$selnick); }| TRACEWIN := createwindow('CLIENT TRACE',lpos,45,260,180); | chlist := creategadget(TRACEWIN,7,2,26,250,130);| setevent(TRACEWIN,1,'/runscript [MYTRACE] close');| setwindowtext(olcontrol,'WHOIS');| slabel := creategadget(TRACEWIN,1,5,6,50,5);| setwindowtext(slabel,'Status:');| statuswin := creategadget(TRACEWIN,2,40,3,70,20);| killbut := creategadget(TRACEWIN,4,180,3,70,20);| setevent(olcontrol,1,'/runscript [MYTRACE] kill');| setwindowtext(killbut,'KILL');| command('/define tracehost=NULL');| { get initial channels }| command('/callback 301 [MYTRACE]');| command('/callback 311 [MYTRACE]');| command('/callback 312 [MYTRACE]');| command('/callback 313 [MYTRACE]');| command('/callback 317 [MYTRACE]');| command('/callback 318 [MYTRACE]');| command('/callback 319 [MYTRACE]');| command('/callback 401 [MYTRACE]');| command('/timer tracetimer -1 15 /runscript [MYTRACE] update');| command('/whois ',$selnick);|end|else|begin| if $cmd = 'update' then| begin| setwindowtext(statuswin,'UPDATING');| command('/callback 301 [MYTRACE]');| command('/callback 311 [MYTRACE]');| command('/callback 312 [MYTRACE]');| command('/callback 313 [MYTRACE]');| command('/callback 317 [MYTRACE]');| command('/callback 318 [MYTRACE]');| command('/callback 319 [MYTRACE]');| command('/callback 401 [MYTRACE]');| command('/whois ',$selnick);| end;| if $cmd = 'close' OR $cmd = 'end' then| begin| command('/callback -d 301 ');| command('/callback -d 311 ');| command('/callback -d 312 ');| command('/callback -d 313 ');| command('/callback -d 317 ');| command('/callback -d 318 ');| command('/callback -d 319 '); | command('/callback -d 401 ');| command('/timer tracetimer die');| command('/define traceactive=0');| $selhost := 'NULL';| command('/display ',\7,'TRACE CLIENT TERMINATED');| halt;| end;| $s := *1;| $s1 := strtoken($s); {strip off server name or ctcp nick name}| $cmd := strtoken($s);| if $cmd = '319' then| begin| { WHOIS CHANNEL LINE }| index := listappend(chlist,'CHANNELS: ');| strdel($s,1,strpos(':',$s));| while strlen($s) > 0 do| begin| $s1 := strtoken($s);| index := listappend(chlist,' ' + $s1);| end;| end| else if $cmd = '311' then| begin| { WHOIS USER - FIRST MESSAGE }| listclear(chlist);| index := listappend(chlist,'NICK = ' + $selnick);| $s := *5;| $wuser := strtoken($s);| $s := *6;| $whost := strtoken($s);| $userhost := $wuser + '@' + $whost;| index := listappend(chlist,'MASK = ' + $userhost);| $asteric := strtoken($s);| $realname := strtoken($s);| index := listappend(chlist,'REALNAME = ' + $asteric + ' ' +$realname);| end| else if $cmd = '318' then| begin| { END OF WHOIS }| setwindowtext(statuswin,'');| command('/callback -d 301 ');| command('/callback -d 311 ');| command('/callback -d 312 ');| command('/callback -d 313 ');| command('/callback -d 317 ');| command('/callback -d 318 ');| command('/callback -d 319 ');| command('/callback -d 401 ');| end| else if $cmd = '312' then| begin| { IS SERVER }| $s := *5;| $wserver := strtoken($s);| index := listappend(chlist,'SERVER = ' + $wserver);| end| else if $cmd = '313' then| begin| { IS OPERATOR }| end| else if $cmd = '317' then| begin| { IS IDLE }| $s := *5;| $isecs := strtoken($s);| index := listappend(chlist,'IDLE = ' + $isecs + ' seconds');| end| else if $cmd = '301' then| begin| $s := *1;| $s1 := strtoken($s);| strdel($s,1,strpos(':',$s));| index := listappend(chlist,' ');| index := listappend(chlist,'AWAY = '+$s);| end| else if $cmd = '352' then| begin| { WHO REPLY }| $s := *5;| $uname := strtoken($s);| if $uname = $wuser then| begin| $s := *8;| $unick := strtoken($s);| command('/display > ',$host,' ',\1,' CHANGED NICK: ',$oldnick,' >> ',$unick);| $selnick := $unick;| end| end| else if $cmd = '315' then| begin| { END OF WHO }| command('/callback -d 352');| command('/callback -d 315');| if $selnick = 'NICK CHANGED' then| begin| command('/display > ',$host,' ',\1,'TRACE LOST, USER LEFT IRC');| destroywindow(TRACEWIN);| halt;| end| else| begin| command('/runscript [MYTRACE] update'); | end| end| else if $cmd = '401' then| begin| if strlen($whost) < 2 then| begin| command('/display > ',$host,' ',\1,' NOT ON IRC - ',$selnick);| destroywindow(TRACEWIN);| end;| if strlen($whost) > 1 then| begin| command('/display > ',$host,' ',\1,'LOST: ',$selnick,' ... CHECKING HOST: ',$whost );| command('/callback 315 [MYTRACE]');| command('/callback 352 [MYTRACE]');| $oldnick := $selnick;| $selnick := 'NICK CHANGED';| command('/who *',$whost);| end| end| |end;
[NEON]:$target := '';|$source := *1 ;|for i := 1 to strlen($source) do| $target := $target+\3+strcopy($source,i,1);|command('/msg ',$audience,' ',$target);
[NEON1A]:{Neon1 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON1] <message>}|$target := '0,0';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+'4'+strcopy($source,i,1);| $target := $target+'12'+strcopy($source,i+1,1);| $target := $target+'13'+strcopy($source,i+2,1);| i:=i+3;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON2]:{Neon2 7/96 by _Author v1.0}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON2] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+\3+strcopy($source,i,1)+\3;| $target := $target+\31+strcopy($source,i+1,1)+\31;| $target := $target+strcopy($source,i+2,1);| i:=i+3;|end;|command('/msg ',$audience,' ',$target);
[NEON2]:{Neon2 7/96 by _Author v1.0}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON2] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+\3+strcopy($source,i,1)+\3;| $target := $target+\31+strcopy($source,i+1,1)+\31;| $target := $target+strcopy($source,i+2,1);| i:=i+3;|end;|command('/msg ',$audience,' ',$target);
[NEON2A]:{Neon2 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON2] <message>}|$target := '1,1';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+'13'+strcopy($source,i,1);| $target := $target+'11'+strcopy($source,i+1,1);| $target := $target+'8'+strcopy($source,i+2,1);| $target := $target+'4'+strcopy($source,i+3,1);| $target := $target+'9'+strcopy($source,i+4,1);| i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON3]:$target := '';|$source := *1 ;|for i := 1 to strlen($source) do| $target := $target+\2+strcopy($source,i,1);|command('/msg ',$audience,' ',$target);
[NEON3A]:{Neon2 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON2] <message>}|$target := '1,1';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+'13'+strcopy($source,i,1);| $target := $target+'11'+strcopy($source,i+1,1);| $target := $target+'8'+strcopy($source,i+2,1);| $target := $target+'4'+strcopy($source,i+3,1);| $target := $target+'9'+strcopy($source,i+4,1);| i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON3A]:{Neon3 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON3] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+'1,4'+strcopy($source,i,1);| $target := $target+'1,8'+strcopy($source,i+1,1);| $target := $target+'1,9'+strcopy($source,i+2,1);| $target := $target+'1,11'+strcopy($source,i+3,1);| $target := $target+'1,13'+strcopy($source,i+4,1);| i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON4]:{Neon2 7/96 by _Author v1.0}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON2] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+\22+strcopy($source,i,1)+\22;| $target := $target+\5+strcopy($source,i+1,1)+\5;| $target := $target+strcopy($source,i+2,1);| i:=i+3;|end;|command('/msg ',$audience,' ',$target);
[NEON4A]:{Neon4 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON4] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin| $target := $target+'4'+'['+'12'+strcopy($source,i,1)+'4'+']';| i:=i+1;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NICKCHECK]:{ Author : ZeroFlow| E-mail : ZeroFlow@Follower.com| Description : Makes sure no abusive nicks are used in the channel.|}|$nick2check:=$2;|$chann:= $1;|if strmatch('*shit*',$nick2check) or strmatch('*fuck*',$nick2check) or| strmatch('*cock*',$nick2check) or strmatch('*cunt*',$nick2check) or | strmatch('*asshole*',$nick2check) or strmatch('*iamhorney*',$nick2check) or| strmatch('*whore*',$nick2check) or strmatch('*slut*',$nick2check) or| strmatch('*fukoff*',$nick2check) or strmatch('*nigger*',$nick2check) or| strmatch('*horny*',$nick2check) or strmatch('*bitch*',$nick2check)|then|begin| command('/mode ',$chann,' +b ',$nick2check,'!*@*');| command('/kick ',$chann,' ',$nick2check,' Abusive nicks or user@hosts not tolerated on this channel.');|end;
[NOOPS]:{This program will allow you to talk in|a channel without the ops knowing|about it. I thought the non-ops should|have a chan-wallops command too :)|add an alias: nonops /runscript [nonops] *1|then just type /nonops <whatever here>|}|$words := *1;|if $words = '' then halt;|$chan := $audience;|ops := 0;|for i := 1 to nickcount($chan) do| begin| nchan := nickcount($chan);| $op := nicklist($chan, i);| if isop($chan, $op) then| begin| ops := ops + 1;| end;| end;|begin|nonops := ops + 1;| begin| for a := nonops to nickcount($chan) do| begin| $n := nicklist($chan, a);| command('/verbose NOTICE ',$n,' :[NonOps:',$chan,'] ',$words);| end;| end;|end;
[NOT]:command('/whon ',$1,);
[NOTIFIES]:{ Maintains a list of users ON LINE |Version: 1.0|Date : 12/16/96|Author : RB_on_Ice|Function: This PIL keeps a Notfiy list box by doing a /notify command on 15 second|intervals. I was unable to trap the "left IRC" event so this method does a total refresh.|The Server response to /notify is minimal length so this should not burden it to much.|;|Install:|1. Copy this entire file and paste in an alias PIL called: [NOTIFIES]|;|2. Create a normal called ONLIST and add the following line|;|/runscript [NOTIFIES] start|;|3. To run type: /onlist|}|$cmd := $1;|$nname := $2;|if $cmd = 'start' then|begin| if $notfactive = '1' then| begin| command('/display ',\9,'NOTIFYs IS ALREADY ACTIVE');| halt;| end;| command('/define notfactive=1');| command('/display ',\1,'NOTIFY INTERCEPT STARTED');| NWIN := createwindow('NOTIFYs',50,90,90,200); | nlist := creategadget(NWIN,7,2,26,80,150);| olcontrol := creategadget(NWIN,4,5,3,70,20);| setevent(olcontrol,1,'/runscript [NOTIFIES] whois');| setevent(NWIN,1,'/runscript [NOTIFIES] close');| setwindowtext(olcontrol,'WHOIS');| command('/callback 303 [NOTIFIES]');| command('/timer onlisttmer -1 15 /runscript [NOTIFIES] update');| command('/notify');|end|else|begin| if $cmd = 'update' then| begin| command('/notify ');| end;| if $cmd = 'whois' then| begin| item := listselection(nlist);| if item > 0 then| begin| $nname := listget(nlist,item);| command('/whois ',$nname);| end;| halt;| end;| if $cmd = 'close' OR $cmd = 'end' then| begin| command('/callback -d 303');| command('/timer onlisttmer die');| command('/define notfactive=0');| command('/display ',\1,'NOTIFY INTERCEPT TERMINATED');| halt;| end;| $s := *1;| $s1 := strtoken($s); {strip off server name or ctcp nick name}| $cmd := strtoken($s);| if $cmd = '303' then| begin| | $line := *1;| { command('/display > ',$host,' RAW 303 >> ',$line); }| listclear(nlist);| strdel($s,1,strpos(':',$s));| $nname := strtoken($s);| while strlen($nname) > 2 do| begin| if listsearch(nlist,$nname) = 0 then| begin| index := listappend(nlist,$nname);| end;| $nname := strtoken($s);| end| end;| if $cmd = '399' then| begin| | $line := *1;| command('/display > ',$host,' RAW 304 >> ',$line);| strdel($s,1,strpos(':',$s));| $nname := strtoken($s);| while strlen($nname) > 2 do| begin| npos := listsearch(nlist,$nname);| if npos > 0 then| begin| item := listdelete(nlist,npos);| end;| $nname := strtoken($s);| end| end;|end;
[NOTIFY]:{|-|This is Andrew Byrne's improved notify list for Pirch.|Usage: place the following line into your autoexec| commands in pirch's Options menu:|-| /runscript [notify] init|-|Please continue to add/remove users as usual.. only the|checking and display of your notify list has been|rewritten. All notifies will appear in the server window.|-|For help, email me: andy@blading.com|WWW: http://www.wantree.com.au/~andy/|-|I WILL be upgrading this script when I think of other interesting|things that it could do :)|-|}|$cmd := $1;|if $cmd = 'init' then| begin| command('/callback 303 [notify]');| command('/callback 302 [notify]');| command('/set notify off');| command('/timer notify -1 45 /notify');| $oldison := '';| $newison := '';| $signon := '';| $signoff := '';| $userhost := '';| end|else if $cmd = 'notify' then| begin| $oldison2 := $oldison;| $newison2 := $newison;| $newison3 := $newison;| $signon := '';| while $newison2 <> '' do| begin| $name := strtoken($newison2);| if strpos(strupper($name),strupper($oldison2)) = 0 then| begin| $signon := $signon+$name+' ';| end;| end;| $signoff := '';| while $oldison2 <> '' do| begin| $name := strtoken($oldison2);| if strpos(strupper($name),strupper($newison3)) = 0 then| begin| $signoff := $signoff+$name+' ';| end;| end;| $userlist := $signon;| $oldison := $newison;| $newison := '';| usercount := 0;| usercount2 := 0;| if $userlist <> '' then| begin| while $userlist <> '' do| begin| usercount := usercount + 1;| command('/verbose userhost ',strtoken($userlist));| end;| end| else| command('/runscript [notify] notify2');| end|else if $cmd = 'notify2' then| begin| while $signon <> '' AND $signon <> ' ' do| begin| $usertemp := strtoken($wuserhost);| index := strpos('=',$usertemp);| strdel($usertemp,1,index+1);| writeln(\7,'Signon by ',strtoken($signon),' (',$usertemp,') detected.');|command('/notice ',$me,' Signon by ',$nick,' ',strtoken($signon),' (',$usertemp,') detected. ');| end;| while $signoff <> '' do| begin| writeln(\7,'Signoff by ',strtoken($signoff),' detected.');|command('/notice ',$me,' Signoff by ',$nick,strtoken($signoff),' detected. ');| end;| $wuserhost := '';| end|else| begin| $s := *1;| $serv := strtoken($s);| $cmd := strtoken($s);| if $cmd = '303' then| begin| $temp := strtoken($s);| strdel($s,1,1);| $newison := $s;| command('/runscript [notify] notify');| end| else if $cmd = '302' then| begin| $temp := strtoken($s);| strdel($s,1,1);| $wuserhost := $wuserhost + $s + ' ';| usercount2 := usercount2 + 1;| if usercount2 = usercount then| command('/runscript [notify] notify2');| end;| end;
[OKBOX]:$ni:=$1;|popup := createwindow('Kick on TextFlood',300,200,150,110);|OKBtn := creategadget(popup,4,10,10,120,30);|$btntext:='Kick : ' + $ni + '!!!';|setwindowtext(OKBtn,$btntext);|CBtn := creategadget(popup,4,10,50,120,30);|setwindowtext(CBtn,'Cancel kick!');|{setwindowattr(OKBtn,7,1);|setwindowattr(OKBtn,6,1);}|setevent(OKBtn,1,'/kick $audience $$1 '+$ni+' Kicked for flooding the channel (repeating text), come back when you can behave!');
[OPMSG]:{ SAMPLE PIL SCRIPT [COUNT] |Usage /runscript [COUNT]|Counts the people in the channel, seperating ops and |undernet bots }|ops := 0;|$channel := $1;|bots := 0;|usercount := strtoint($members);|for i := 1 to usercount do|begin| $s := nicklist($audience,i);| if $s = 'X' then | bots := bots + 1;| if $s = 'W' then | bots := bots + 1;| if isop($audience,$s) then| ops := ops + 1;|end;|if bots = 1 then| $s2 := ' is a service bot';|if bots <> 1 then | $s2 := ' are service bots';|ops := ops - bots;|if usercount > 0 then| percentage := ops * 100 / usercount|else | percentage := 0;|command('/define omsg=',ops,);
[OTIMER]:{Otimer v.1 by: eLiXiR}|{!!This is a PIRCH32 .85 PIL and will not run on lower versions!!|USAGE:| /runscript [otimer] start |=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|NOTE: The date does not wor corectly adn will be fixed in the next version.. (If you fix please tell me how you did it.)|USE: the 'T' button brings up the Info window and displays the time the PIL started and teh curent time and an ERROR for the date..|---------------|If you have any problems with this, Come to #pil i am usually there|eLiXiR|}|$cmd := $1;|{---------Initialize the timer window----------}|if strupper($cmd) = 'START' then|begin |$ONtime := $time;|OTime := 0;|Secs := 0;|Minutes := 0;|Hours := 0;|$Stime := '00:00:00';|Ontime := unixtime;|Otime := createwindow('OTimer v.1',10,10,80,45); |setevent(Otime,1,'/timer Otimer die');|Timer := creategadget(Otime,2,2,2,50,20);|setwindowattr(Timer,1,0);|setwindowattr(Timer,2,64000);|setwindowtext(Timer,$Stime);|Time := creategadget(Otime,4,54,2,20,20);|setwindowtext(Time,'T');|setevent(Time,1,'/runscript [otimer] Info');|command('/timer Otimer -1 1 /runscript [otimer] update');|end;|{--------Handle the updating-------}|if strupper($cmd) = 'UPDATE' then|begin|$Stime := '';|Secs := Secs +1;| if Secs = 60 then| begin| Minutes := Minutes + 1;| Secs := 0;| end;| if Minutes = 60 then | begin| Hours := Hours + 1;| Minutes := 0;| end;|if Hours < 10 then |$Stime := $Stime + '0' + inttostr(Hours) + ':'|else|$Stime := $Stime + inttostr(Hours) + ':';|if Minutes < 10 then|$Stime := $Stime + '0' + inttostr(Minutes) + ':'|else |$Stime := $Stime + inttostr(Minutes) + ':';|if Secs < 10 then|$Stime := $Stime + '0' + inttostr(Secs)|else|$Stime := $Stime + inttostr(Secs);|setwindowtext(Timer,$Stime);|end;|{---------Set up info window on the push of 'T'-----------}|if strupper($cmd) = 'INFO' then|begin|Info := createwindow('Info (by: elixir)',90,10,222,60);|setevent(Info,1,'/timer OInfo die');|Label1 := creategadget(Info,1,2,24,40,20);|setwindowtext(Label1,' Sign on time');|SignON := creategadget(Info,2,2,2,70,20);|setwindowattr(SignON,1,0);|setwindowattr(SignON,2,64000);|setwindowtext(SignON,$ONtime);| Label2 := creategadget(Info,1,68,24,48,20);| setwindowtext(Label2,' Current time');| Curent := creategadget(Info,2,73,2,70,20);| setwindowattr(Curent,1,0);| setwindowattr(Curent,2,64000);| setwindowtext(Curent,$time);|Label3 := creategadget(Info,1,150,24,48,20);|setwindowtext(Label3,' Date');|tDate := creategadget(Info,2,144,2,70,20);|setwindowattr(tDate,1,0);|setwindowattr(tDate,2,64000);|setwindowtext(tDate,$time);|command('/timer OInfo -1 1 /runscript [otimer] current');|end;|{-----------------}|if strupper($cmd) = 'CURRENT' then|begin | setwindowtext(Curent,$time);|end;
[PB/HDK-DETECT]:$parm1:=$1;|$parm2:=$2;|$person:=$3;|if $parm1='3353362454' or $parm2='19' then|Begin| command('/timer wait4it 1 4 /close DCC-',$person);| command('/ignore ',$person);| command('/define LastIgnored=',$person);| command('/notice ',$person,' Nice try. I have DCC Flood Protection Protects Me Against Port Bomb/HD Kills =)');| command('/newwindow WARNING');| command('/display > WARNING ',\6,' Incoming Port Bomb or Hard Drive Kill from ',$person);| command('/display > WARNING ',\7,' If you dont have Auto-Accept enabled, DO NOT accept it!');| command('/display > WARNING ',\7,' If you do... the Chat is now cancelled...');| command('/display > WARNING ',\7,' ',$person,' is now on /ignore.');| command('/display > WARNING ',\16,' Port Bomb/Hard Drive Kill protection by La0Tz3');|End
[PIC]:{Test file output}|if StrUpper($1)='CREATE' then|begin| destroywindow(pic2);| pic:=CreateWindow('Edge20 Edge of The Irc by Kain',101,28,589,369);| SetWindowAttr(pic,12,1);| Image1:=CreateGadget(pic,14,2,0,579,342);| SetWindowText(Image1,'Image1');| SetWindowAttr(Image1,14,1);| if LoadFromFile(Image1,'C:\EDGE\Edge.bmp') then;| Panel1:=CreateGadget(pic,10,0,300,580,42);| SetWindowText(Panel1,'Panel1');| SetWindowAttr(Panel1,1,0);| Button1:=CreateGadget(Panel1,4,162,0,89,38);| SetWindowText(Button1,'Command Help ');| SetEvent(Button1,1,'/run notepad.exe c:\edge\helptext\irchelp.txt');| Button4:=CreateGadget(Panel1,4,385,0,90,38);| SetWindowText(Button4,'Special Tnx');| SetEvent(Button4,1,'/runscript [pic] TNX');| Button5:=CreateGadget(Panel1,4,36,0,75,38);| SetWindowText(Button5,'Close');| SetEvent(Button5,1,'/runscript [pic] DONE');| Button2:=CreateGadget(Panel1,4,492,0,75,38);| SetWindowText(Button2,'About');| SetEvent(Button2,1,'/run notepad.exe c:\edge\helptext\about.txt');| Button5:=CreateGadget(Panel1,4,271,0,94,38);| SetWindowText(Button5,'Event Help');| SetEvent(Button5,1,'/run notepad.exe c:\edge\helptext\events.txt');|end;|{Test file output}|if StrUpper($1)='TNX' then|begin| destroywindow(pic);| pic2:=CreateWindow('Edge20 Edge of The Irc by Kain',74,69,589,369);| SetWindowAttr(pic2,12,1);| Panel1:=CreateGadget(pic2,10,0,301,580,42);| SetWindowText(Panel1,'Panel1');| SetWindowAttr(Panel1,1,0);| Panel2:=CreateGadget(pic2,10,0,0,583,298);| SetWindowText(Panel2,'http://www.ircweb.com');| SetWindowAttr(Panel2,1,0);| SetWindowAttr(Panel2,2,16777215);| Label1:=CreateGadget(Panel2,1,402,191,100,13);| SetWindowText(Label1,'Beta Testers');| SetWindowAttr(Label1,1,0);| SetWindowAttr(Label1,2,16777215);| Label2:=CreateGadget(Panel2,1,387,212,100,13);| SetWindowText(Label2,'Mariah');| SetWindowAttr(Label2,1,0);| SetWindowAttr(Label2,2,16777215);| Label3:=CreateGadget(Panel2,1,447,214,100,13);| SetWindowText(Label3,'NiteRider');| SetWindowAttr(Label3,1,0);| SetWindowAttr(Label3,2,16777215);| Label4:=CreateGadget(Panel2,1,444,233,100,13);| SetWindowText(Label4,'cowpaddy');| SetWindowAttr(Label4,1,0);| SetWindowAttr(Label4,2,16777215);| Label5:=CreateGadget(Panel2,1,127,188,100,13);| SetWindowText(Label5,'Special Thanks');| SetWindowAttr(Label5,1,0);| SetWindowAttr(Label5,2,16777215);| Label6:=CreateGadget(Panel2,1,148,248,22,13);| SetWindowText(Label6,'G][');| SetWindowAttr(Label6,1,0);| SetWindowAttr(Label6,2,16777215);| Label7:=CreateGadget(Panel2,1,181,249,57,13);| SetWindowText(Label7,'whitedove');| SetWindowAttr(Label7,1,0);| SetWindowAttr(Label7,2,16777215);| Label8:=CreateGadget(Panel2,1,107,228,29,13);| SetWindowText(Label8,'Nolte');| SetWindowAttr(Label8,1,0);| SetWindowAttr(Label8,2,16777215);| Label9:=CreateGadget(Panel2,1,139,268,53,13);| SetWindowText(Label9,'Catninja');| SetWindowAttr(Label9,1,0);| SetWindowAttr(Label9,2,16777215);| Label10:=CreateGadget(Panel2,1,390,234,30,14);| SetWindowText(Label10,'Scott');| SetWindowAttr(Label10,1,0);| SetWindowAttr(Label10,2,16777215);| Label11:=CreateGadget(Panel2,1,233,127,122,13);| SetWindowText(Label11,'http://www.castlenet.org');| SetWindowAttr(Label11,1,0);| SetWindowAttr(Label11,2,16777215);| Label12:=CreateGadget(Panel2,1,455,252,30,13);| SetWindowText(Label12,'Casey');| SetWindowAttr(Label12,1,0);| SetWindowAttr(Label12,2,16777215);| Label13:=CreateGadget(Panel2,1,93,248,42,13);| SetWindowText(Label13,'angelfire');| SetWindowAttr(Label13,1,0);| SetWindowAttr(Label13,2,16777215);| Label14:=CreateGadget(Panel2,1,189,232,42,13);| SetWindowText(Label14,'Swampy');| SetWindowAttr(Label14,1,0);| SetWindowAttr(Label14,2,16777215);| Label15:=CreateGadget(Panel2,1,233,153,114,13);| SetWindowText(Label15,'http://www.chatnet.org');| SetWindowAttr(Label15,1,0);| SetWindowAttr(Label15,2,16777215);| Label16:=CreateGadget(Panel2,1,123,211,100,13);| SetWindowText(Label16,'Mariah "the voice"');| SetWindowAttr(Label16,1,0);| SetWindowAttr(Label16,2,16777215);| Label17:=CreateGadget(Panel2,1,178,39,244,13);| SetWindowText(Label17,'These are the people that helped me along the way');| SetWindowAttr(Label17,1,0);| SetWindowAttr(Label17,2,16777215);| Label18:=CreateGadget(Panel2,1,182,54,240,13);| SetWindowText(Label18,'without them i don`t think this would ever got done');| SetWindowAttr(Label18,1,0);| SetWindowAttr(Label18,2,16777215);| Button1:=CreateGadget(Panel1,4,252,0,82,38);| SetWindowText(Button1,'back');| SetEvent(Button1,1,'/runscript [pic] create');| Label19:=CreateGadget(pic2,1,147,232,29,13);| SetWindowText(Label19,'Casey');| SetWindowAttr(Label19,1,0);| SetWindowAttr(Label19,2,16777215);| Label20:=CreateGadget(Panel2,1,390,254,32,13);| SetWindowText(Label20,'Cindy');| SetWindowAttr(Label20,1,0);| SetWindowAttr(Label20,2,16777215);| Label22:=CreateGadget(Panel2,1,125,70,371,13);| SetWindowText(Label22,'All thanks Go`s Out to Mariah Without her help I don`t think it never been done');| SetWindowAttr(Label22,1,0);| SetWindowAttr(Label22,2,16777215);|end;|if StrUpper($1)='DONE' then|begin|destroywindow(pic);|end;
[PIGLATIN]:{ usage: /runscript [piglatin] <text message> }|{ probably will want to make an alias like|- piglatin:/runscript [piglatin] *1 |}|$target := '';|$source := *1 ;|while strlen($source) > 0 do|begin| $word := strtoken($source);| $c := strcopy($word,1,1);| if strpos(strupper($c),'AEIOU') = 0 then| begin| strdel($word,1,1);| $word := $word+$c+'a';| end;| $target := $target + $word+' ';|end;|command('/msg ',$audience,' pig latin: ',$target);
[PIRCHSET]:{==============================================================|An easier way to set up your Pirch settings|By WrATh member of --==ScRiPTaZ==--|For more --==ScRiPTaZ==-- products check out the homepage:| http://www.geocities.com/SiliconValley/Lakes/1917/|Usage:|/runscript [pirchset] start|==============================================================}|$ver := '1.0';|$cmd := $1;|if $cmd = 'start' then begin|main:=createwindow('Pirch Settings Editor Version '+$ver,200,120,241,75);|gr:=creategadget(main,9,1,0,232,55);|gr2:=creategadget(main,9,102,0,86,55);|help:=creategadget(main,4,190,8,39,20); setwindowtext(help,'Help');|about:=creategadget(main,4,190,32,39,20); setwindowtext(about,'About');|list:=creategadget(main,8,5,8,95,20);| if listappend(list,' Automin') then| if listappend(list,' Autoop') then| if listappend(list,' CmdBar') then| if listappend(list,' CTCP') then| if listappend(list,' Debug') then| if listappend(list,' Events') then| if listappend(list,' Headers') then| if listappend(list,' Ignore') then| if listappend(list,' Logs') then| if listappend(list,' NoPopup') then| if listappend(list, ' Notify') then| if listappend(list,' Protect') then| if listappend(list,' Sound') then| if listappend(list,' StatusBar') then| if listappend(list,' Tabs') then| if listappend(list,' Tag') then| if listappend(list,' TimeStamps') then| if listappend(list,' ToolBar') then|setwindowtext(list,'Select one');|{}|list2:=creategadget(main,8,5,32,95,20);| if listappend(list2,' DCCeolm') then| if listappend(list2,' Editor') then| if listappend(list2,' GetPath') then| if listappend(list2,' LogPath') then| if listappend(list2,' SendPath') then| if listappend(list2,' SoundPath') then| if listappend(list2,' Title') then|setwindowtext(list2,'Select one');|on:=creategadget(main,4,105,8,40,20); setwindowtext(on,'On');|off:=creategadget(main,4,145,8,40,20); setwindowtext(off,'Off');|set:=creategadget(main,4,105,32,80,20); setwindowtext(set,'Set Parameters');|setevent(on,1,'/runscript [pirchset] seton');|setevent(off,1,'/runscript [pirchset] setoff');|setevent(set,1,'/runscript [pirchset] setparam');|setevent(help,1,'/? /set');|setevent(about,1,'/runscript [pirchset] about');|end;|{}|begin|$text := getwindowtext(list); |text := listsearch(list,$text);|end;|begin|$text2 := getwindowtext(list2); |text2 := listsearch(list2,$text);|end;|{}|if $cmd ='seton' then begin|command('/set ',$text+' on');|end;|if $cmd ='setoff' then begin|command('/set ',$text+' off');|end;|{}|if $cmd = 'setparam' then begin|setparam:=createwindow('Enter Parameters for '+$text2,200,170,250,42);|enterbox:=creategadget(setparam,2,2,1,200,20); setwindowattr(enterbox,1,0); setwindowattr(enterbox,2,16776960);|done:=creategadget(setparam,4,203,1,40,20); setwindowtext(done,'Done'); setwindowattr(done,9,1);|setevent(done,1,'/runscript [pirchset] set');|end;|{}|if $cmd = 'set' then|begin|$option := getwindowtext(enterbox);|command('/set ',$text2,' ',$option);|destroywindow(setparam);|end;|{}|if $cmd = 'about' then|begin| about:=createwindow('About PirchSet',50,50,200,100);| abgroup:=creategadget(about,9,2,2,189,77);| setwindowtext(abgroup,'Pirch Settings Editor');| abl1:=creategadget(about,10,7,20,180,18); setwindowattr(abl1,1,16777215); setwindowattr(abl1,2,8388750);| setwindowtext(abl1,'Version '+$ver+' By:');| abl2:=creategadget(about,10,7,38,180,18); setwindowattr(abl2,2,16776970); setwindowattr(abl2,1,0);| setwindowtext(abl2,'--==ScRiPTaZ==--');| abl3:=creategadget(about,10,7,56,180,18); setwindowattr(abl3,1,16777215); setwindowattr(abl3,2,8388750);| setwindowtext(abl3,'Scripts of the elite'); |end;
[PLANNER]:{Planner 1.0 was made by Taz1. This PIL will allow the user to view the time,|the date, the day, and a fun little color option. With this PIL the user may also|take notes. If there are any comments please e-mail me at taz1@ida.net or you|may find me at #Taz_Palace. To run this script, make a separate alias called|planner and put the following command: /runscript [planner] start. Also a popup|may be made. In your popup menu put: planner:/runscript [planner] start.}|{========DO NOT CHANGE ANYTHING BELOW THIS LINE===============}|$msg:=*1|$cmd:=strtoken($msg);|x:=100|y:=100|w:=310|h:=175|begin|if $cmd='start' then|begin|{MAINWINDOW}|mainwindow:=createwindow('Planner 1.0',x,y,w,h);|{GADGETS}|time2:=creategadget(mainwindow,10,80,5,70,45);|setwindowattr(time2,1,0);|date2:=creategadget(mainwindow,10,80,55,70,45);|setwindowattr(date2,1,0);|day2:=creategadget(mainwindow,10,230,5,70,45);|setwindowattr(day2,1,0);|color2:=creategadget(mainwindow,10,230,55,70,45);|setwindowattr(color2,1,0);|{TIME BUTTONS}|timebutton:=creategadget(mainwindow,4,5,5,70,20);|setwindowtext(timebutton,'Time');|setevent(timebutton,1,'/timer plannertime -1 1 /runscript [planner] time');|timebutton2:=creategadget(mainwindow,4,5,30,70,20);|setwindowtext(timebutton2,'ClearTime');|setevent(timebutton2,1,'/runscript [planner] stop');|{DATE BUTTONS}|datebutton:=creategadget(mainwindow,4,5,55,70,20);|setwindowtext(datebutton,'Date');|setevent(datebutton,1,'/runscript [planner] date');|datebutton2:=creategadget(mainwindow,4,5,80,70,20);|setwindowtext(datebutton2,'Clear Date');|setevent(datebutton2,1,'/runscript [planner] stop2');|{DAY BUTTONS}|daybutton:=creategadget(mainwindow,4,155,5,70,20);|setwindowtext(daybutton,'Day');|setevent(daybutton,1,'/runscript [planner] day');|daybutton2:=creategadget(mainwindow,4,155,30,70,20);|setwindowtext(daybutton2,'Clear Day');|setevent(daybutton2,1,'/runscript [planner] stop3');|{COLOR BUTTONS}|colorbutton:=creategadget(mainwindow,4,155,55,70,20);|setwindowtext(colorbutton,'Color');|setevent(colorbutton,1,'/timer plannercolor -1 .1 /runscript [planner] colors');|colorbutton2:=creategadget(mainwindow,4,155,80,70,20);|setwindowtext(colorbutton2,'Clear Color');|setevent(colorbutton2,1,'/runscript [planner] stop4');|{MINIMIZE BUTTON}|minimizebutton:=creategadget(mainwindow,4,5,105,295,20);|setwindowtext(minimizebutton,'Minimize Planner 1.0');|setevent(minimizebutton,1,'/runscript [planner] minimize');|{NOTES BUTTON}|notesbutton:=creategadget(mainwindow,4,5,130,295,20);|setwindowtext(notesbutton,'Notes');|setevent(notesbutton,1,'/runscript [planner] notes');|end |{TIME EVENTS}|else if $cmd = 'time' then|begin|setwindowtext(time2, $time );|setwindowattr(time2,2,65280);|end|else if $cmd = 'stop' then|begin|setwindowattr(time2,2,0);|command('/timer plannertime die');|end|{DATE EVENTS}|else if $cmd = 'date' then|begin|setwindowtext(date2, $date );|setwindowattr(date2,2,65280);|end|else if $cmd = 'stop2' then|begin|setwindowattr(date2,2,0);|end|{DAY EVENTS}|else if $cmd = 'day' then|begin|setwindowtext(day2, $day );|setwindowattr(day2,2,65280);|end|else if $cmd = 'stop3' then|begin|setwindowattr(day2,2,0);|end|{COLOR EVENTS}|else if $cmd = 'colors' then|begin|cc:=cc + 500;|setwindowattr(color2,1,cc);|setwindowattr(time2,1,cc);|setwindowattr(date2,1,cc);|setwindowattr(day2,1,cc);|end|else if $cmd = 'stop4' then|begin|setwindowattr(color2,1,0);|setwindowattr(time2,1,0);|setwindowattr(date2,1,0);|setwindowattr(day2,1,0);|command('/timer plannercolor die');|end|{MINIMIZE EVENTS/ MAXIMIZE EVENTS}|else if $cmd = 'minimize' then|begin|setwindowattr(mainwindow,7,0);|minimizedwindow:=createwindow('Planner 1.0',100,100,85,40);|maximizedwindow:=creategadget(minimizedwindow,4,0,0,80,19);|setwindowtext(maximizedwindow,'Maximize');|setevent(maximizedwindow,1,'/runscript [planner] maximize');|end|else if $cmd = 'maximize' then|begin|setwindowattr(mainwindow,7,1);|setwindowattr(minimizedwindow,7,0);|end|else if $cmd = 'notes' then |begin|noteswindow:=createwindow('Planner 1.0 Notes',100,100,290,320);|notes:=creategadget(noteswindow,3,5,5,275,265);|minimizebutton2:=creategadget(noteswindow,4,5,275,275,20);|setwindowtext(minimizebutton2,'Minimize Planner Notes');|setevent(minimizebutton2,1,'/runscript [planner] minimize2');|end|else if $cmd = 'minimize2' then|begin|setwindowattr(noteswindow,7,0);|minimizedwindow2:=createwindow('Notes',100,100,85,40);|maximizedwindow2:=creategadget(minimizedwindow2,4,0,0,80,19);|setwindowtext(maximizedwindow2,'Maximize');|setevent(maximizedwindow2,1,'/runscript [planner] maximize2');|end|else if $cmd = 'maximize2' then|begin|setwindowattr(noteswindow,7,1);|setwindowattr(minimizedwindow2,7,0);|end|end
[PLAYSOUND]:{ PLAYSOUND.PIL v. 1.1 ==== written by MtnMan ==== 11/10/96 ====== }|{Usage: To play a .wav sound and include the filesize and instructions | on how to grab the file }|{ Execution: /runscript [playsound] filename }|{ NOTE: do not include the .wav extension in the filename }|$sound := $soundpath + $1 + '.wav';|if fileexists($sound) then|begin| size := filesize($sound);| $sz := inttostr(size);| if strlen($sz) = 4 then| begin| strins(',',$sz,2);| end| else if strlen($sz) = 5 then| begin| strins(',',$sz,3);| end| else if strlen($sz) = 6 then| begin| strins(',',$sz,4);| end| else if strlen($sz) = 7 then| begin| strins(',',$sz,2);| strins(',',$sz,6);| end;| command('/sound ',$audience,' ',$sound,' 10[4E3d2G6e13 2.010] 4in 1,10 S15T14E15R14E0O 4plays 12[',$1,'.wav]1 ',$sz,' bytes.');|end|else|begin| writeln('file not found');|command('/display > ',$activewin,' ',\11,'1file 3wav 4not found 12Check your 7Sound Path 4or 6Play with out the 3.wav 1ext',);|end;
[PTIME]:{|Shows ping responses to a channel or window. (you can use /ping #channel to ping the whole channel)|------- Add to events -----------------------------------------------------------------------------|ON CTCPREPLY:*:/runscript [ptime] $activewin $nick *1|In the events under Unknowns : ON TEXT:!ping:*:/ctcp $nick PING|}|$chan := $1|$n := $2|$cmd := $3|if $cmd = 'PING' then|begin| Secs := unixtime - strtoint($4);| | command('/notice ',$n,' [Edge2.0] ',$n,' Your Ping Responce Was: ',Secs,' Seconds');|end;
[RAINBOWORDS]:{Rainbowwords pil by cpw|usage /runscript [rainbowwords] text}|$target := '';|$source := *1 ;|$text:='startval'|while $text<>'' do|begin| $text:=strtoken($source);| color := random(14)+1;| if color=8 then color:=4;| if color=9 then color:=3;| if color=11 then color:=12;| $color := inttostr(color);| $target := $target+''+$color+$text+' ';|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[RAINHART]:{|RAINHART.PIL == written by MtnMan == 1/14/96|Useage: /runscript [rainhart] <text/Nickname>|Example: create an alias or popup == RH:/runscript [rainhart] $1|}|$newtext:='';|$a := *1;|for i := 1 to strlen($a) do|begin| $chartemp:=strcopy($a,i,1);| randcolor:=random(14)+1;| if randcolor=8 then randcolor:=6;| if randcolor=9 then randcolor:=3;| if randcolor=11 then randcolor:=12;| $randcolor:=inttostr(randcolor);| $newtext:=$newtext+''+$randcolor+$chartemp;|end;|command('4⌐ 8⌐ 9⌐ 11⌐ 12⌐ 13⌐ ',$newtext,' 4⌐ 8⌐ 9⌐ 11⌐ 12⌐ 13⌐');
[READ]:{|==================================|=Name:Read.pil|=by Kain used ONLY with EDGE2.0 higher only|=Usage:reads txt from directory|=|=Setup:|=|==================================|}|$thefile := $1;|$prefix := *2;|$fileline := '';|if fileread($pirchpath + $thefile,0,$fileline) then|command($prefix,' ',$fileline);
[REDCLUB]:{|this is my redclub pil|useage |popup redclub:/runscript [redclub] $?="message"|alias redclub:/runscript [redclub] *1|---------------------------------------------------------------------------------|need help find me here|#popups_for_fun neato.org:6667|#pirch / #chatcircuit irc.mscomm.com:6667|----------------------------------------------------------------------------------|budman |}|$target := '';|$source := *1 ;|$add := ' 4º2 ';|for i := 1 to strlen($source) do|begin| $letter := \2+\3+strupper(strcopy($source,i,1))+\2+\3;| $target := $target+$letter+$add;|end;|command('/msg ',$audience,' ',$target);
[REDIR_WHOIS]:{ REDIR_WHOIS: Redirects WHOIS messages to ACTIVE WINDOW|Version: 1.0|Date : 1/5/97|Author : RB_on_Ice|;|INSTALL:|1. Copy this entire file and paste in an alias PIL called: [REDIR_WHOIS]|;|2. Create a normal called WI and add the following line|;| ;|3. To run type: /WI <nick>|}|$cmd := $1;|if $cmd = 'start' then|begin| $selnick := $2;| { setup callbacks }| command('/callback 301 [REDIR_WHOIS]');| command('/callback 311 [REDIR_WHOIS]');| command('/callback 312 [REDIR_WHOIS]');| command('/callback 313 [REDIR_WHOIS]');| command('/callback 317 [REDIR_WHOIS]');| command('/callback 318 [REDIR_WHOIS]');| command('/callback 319 [REDIR_WHOIS]');| command('/callback 401 [REDIR_WHOIS]');| command('/whois ',$selnick);|end|else|begin| $s := *1;| $s1 := strtoken($s); {strip off server name or ctcp nick name}| $cmd := strtoken($s); {grab command RPL code}| $mynick := strtoken($s); {strip off your nick}| if $cmd = '319' then| begin| { WHOIS CHANNEL LINE }| command('/display > ',$activewin,' ',\16,'12 ', $s,'',);| end| else if $cmd = '311' then| begin| { WHOIS USER - FIRST MESSAGE }| command('/display > ',$activewin,' ',\16,'10 ', $s,'',);| end| else if $cmd = '318' then| begin| { END OF WHOIS }| command('/display > ',$activewin,' ',\16,'4 ', $s,'',);| command('/callback -d 301 ');| command('/callback -d 311 ');| command('/callback -d 312 ');| command('/callback -d 313 ');| command('/callback -d 317 ');| command('/callback -d 318 ');| command('/callback -d 319 ');| command('/callback -d 401 ');| end| else if $cmd = '312' then| begin| { IS SERVER }| command('/display > ',$activewin,' ',\16, '2 ' ,$s,'',);| end| else if $cmd = '313' then| begin| { IS OPERATOR }| command('/display > ',$activewin,' ',\18, '5IrcOp 4 ',$s,'',);| end| else if $cmd = '317' then| begin| { IS IDLE }| $n := strtoken($s);| $sec := strtoken($s);| $utime := strtoken($s);| $utime := UnixTimeToStr('',strtoint($utime));| command('/display > ',$activewin,' ',\16,'2',$n + ' 3 ' + $sec + ' 6seconds idle, 13logged in at 1 ',$utime,'',);| end| else if $cmd = '301' then| begin| { AWAY LINE }| command('/display > ',$activewin,' ',\17,'3Away ',$s,'',);| end| else if $cmd = '401' then| begin| { NO SUCH NICK }| command('/display > ',$activewin,' ',\16,'4',$s,'',);| command('/callback -d 301 ');| command('/callback -d 311 ');| command('/callback -d 312 ');| command('/callback -d 313 ');| command('/callback -d 317 ');| command('/callback -d 318 ');| command('/callback -d 319 ');| command('/callback -d 401 ');| end| |end;
[REVERSE]:{[reverse]}|{ usage: /runscript [reverse] <text message> }|{ probably will want to make an alias like|- reverse:/runscript [reverse] *1 |}|{This pil script was written by spanner}|{and is really just a first attempt at using pil}|{It is based on the piglatin script distributed with 0.82}|{This script will reverse each word in turn but retain the original word order}|$target := '';|$source := *1 ;|while strlen($source) > 0 do|begin|$word := strtoken($source);|while strlen($word) > 0 do|begin|$c := strcopy($word,strlen($word),1);|strdel($word,strlen($word),1);|$target := $target + $c;|end;|$target := $target + ' ';|end;|command('/msg ',$audience,' ',$target);
[ROLL]:{ Rolls a pair of dice...|Required event: ON TEXT:!roll:#yourchannel:/runscript [roll] # $nick }|$chan := $1;|$nick := $2;|die1 := random(5)+1;|die2 := random(5)+1;|die3 := die1+die2;|command('/msg ',$chan,' ',$nick,' has rolled a ',\3,die1,\3,' and a ',\3,die2,\3,' [',\2,die3,\2,']')
[RUN]:{;PIL FILE BY Kain}|{Run.1.1 Runs Files In any directory}|$thefile := $1;|$prefix := *2;|$fileline := '';|if fileread($pirchpath + $thefile,0,$fileline) then|command('/run notepad.exe ',$prefix,' ',$fileline);
[SBAN]:{|ScanBan|(7/17/97) |by Kain used (ONLY) with EDGE2.0 higher only|I don't want see this pil in any comercial scripts|Redirects a /sban to the channel designated by $wn|Usage: /sban <nick>|Alias /sban|------------------------------------------------------------------------------------------------------|/define xchan= $+ #|/callback 367 [SBAN]|/callback 368 [SBAN]|/mode $?=" Channel? " b|------------------------------------------------------------------------------------------------------ |}|$wn := $$1|$msg := *2;|$namemsg := *8|$test := $0|$cde := strtoken($msg);|$x := strtoken($msg); {requesting nick}|$nick := strtoken($msg); {whois nick}|code := strtoint($cde); {RPL CODE}|if code = 367 then| begin| $band := strtoken($msg); {userid}| $servd :=strtoken($msg); {port}| $timed :=strtoken($msg); {port}| { $tme := UnixTimeToStr('dddd, d mmmm yyy hh:nn:ss',strtoint($tm)); }| strdel($msg,0,0);|command('/display > ',$activewin,' ',\2,'14[BaNs]: 3',\2,\16,'3',$band,' 12',$servd,'5 ',$timed,);| end|else if code = 368 then| begin| strdel($msg,1,1);| command('/display > ',$activewin,' ',\16,'1 ',$msg); |command('/callback -d 367');|command('/callback -d 368');|end;
[SCROLLER]:{Scroller Tutorial by: eLiXiR (Wed Sept 4,1996 [07:35:56])}|{Simple Scroller tutorial for pil.. |-Use: hmm.. it would look neat on some pils although it is a bit slow.. |-USAGE: /runscript [scroller] start|-NOTE: you can speed it up by grabbing more than 1 char at a time.. try 2 any more than that and is looks wierd|-----------------------------------------------------------------------------------|-Well.. Yes it's another scroller. I took this code from a text scroller I did about a year ago in C for DOS.. |-Essentialy all you do is set a string buffer of a certian length Why a certian lenght? well you need a text window to place the |-text in. If the text window is al long as the text then you need a String buffer as long as the text to make it wrap. this is a good idea|-if you want people to see the whole Text string at some point.. |-after you've set the string buffer up you rrun through the Text character by character.|-First you delete the first char in the the string buffer and the place a space in the end of the string buffer to keep the right length.|-then you take the next character in the Text and place it at the end of the string buffer.. |-then you place the text in the window.. |-Check the Length and make sure it isn't at the end od the Text.. if it is reset the string buffer and the Length counter.|-Viola a text scroller.. |}|$cmd := $1;|if strupper($cmd) = 'START' then|begin|$Scroll :=' WiLdEr ScRiPtS by WiLdHoNeY and this is a smll shitty scroll to show what he can do!! ';|$TScroll := ' '; {-Set up the string buffer-}|$Scroll := $Scroll + $TScroll; {-Add the string buffer to the end of the users string-}|Length := 0; {-Define the Length counter-}|Tlength := strlen($Tscroll); {-Define the String buffers length(needed to determine the last char in the buffer)-}|{-Scroller Window-}|Scroller := createwindow('Scroller',100,100,170,45);| setevent(Scroller,1,'/timer Scrolltimer die');|{-Test Window-}|Win := creategadget(Scroller,2,1,1,164,27);| setwindowattr(Win,1,0);| setwindowattr(Win,2,255);| setwindowtext(Win,$TScroll);|{-Timer Command-}|command('/timer Scrolltimer -1 1 /runscript [scroller] scroll'); {try .1 for the timer..experiment}|end;|{-Scroll code block-}|if strupper($cmd) = 'SCROLL' then|begin| Length := Length + 1; {-advance to the next char in $Scroll-}| strdel($TScroll,1,1); {-Delete the first char in $TScroll-} | $TScroll := $TScroll + ' '; {-Add a space to to $TScroll to make it the corect length-}| strins(strcopy($Scroll,Length,1),$TScroll,Tlength -1); {-Insert the next char in $Scroll into the last position in $TScroll-}|setwindowtext(Win,$TScroll); {-Put the text in the window-}|{-Check the stuff and reset the variables if the end of $Scroll has been reached-}|if Length = strlen($Scroll) then|begin| $TScroll := ' '; | Length := 0;|end |end;
[SHOUTING]:{|Script - Shouting.pil|Version - 3.0|Author - BillG|Purpose - This script is for chan ops to be able to deal with people who| insist on using CAPITAL letters in their speech.| |==============================================================================================|AMENDMENTS|Version - 3.1|Author - BillG|Purpose - To remove bugs from 3.0|Date - 13 March 1997|Version - 3.2|Author - BillG|Purpose - 1. Remove a bug in the required INI file creation routine| 2. Alter the warnings, the first "offence" totally in private, nothing on channel| 3. Alter the "on channel" warnings from "/me has " to "/notice # $m3 has ..."|Date - 21st May 1997|===============================================================================================| |Events required : ON TEXT:*:#:/runscript [shouting] check $nick # *1| : ON NICK:#:/runscript [shouting] alterednick $oldnick $newnick|Altering - This script has been designed do that only the first few variables| need to be altered. These are clearly marked further below.|Housekeeping - This script does it's own housekeeping as much as possible| so there is no need to dive into the ini file and manually remove anyone| - Housekeeping is done as it is possible that you leave the server with a| number of warnings active. When you rejoin the server, the TIMERS will not| be active to delete the blocks in the ini file.| |Parameters received :| $1 = what to do| check = check to see if the person is shouting| delete = delete the person from the ini file| $2 = the person| $3 = the channel| $4 = what was said| |This whole thing is designed to NOT operate off nicks, but to make allowance|for nicknames. The reason for this is that if someone changes their nick, and another person |takes the previous nick, the wrong person will end up being under scrutiny for shouting.|The inifile will need has a record header section with :| Nick=n|The header will also need :| TotRecs=n|The blocks will be :| [Shoutn]|where in all cases n denotes a number greater than 0 (zero).|}|{|------------------------------------|THESE VARIABLE CAN BE ALTERED|-------------------------------------|}|$FileName := $pirchpath + 'shouting.ini' ;|{number of seconds that a person will receive another warning in}|ShoutTime := 600 ; |{minimum length of string to be concerned about}|MinLength := 13 ;|{minimum percent of string that must be in caps}|MinPercent := 75 ;|{number of warnings before the person will be kicked out|it is on the WarnToKick time that the person is kicked}|WarnToKick := 3 ;|{|-------------------------------------|DO NOT ALTER VARIABLES FROM HERE|--------------------------------------|}|{make sure the required ini file exists}|IF NOT FILEEXISTS($FileName) THEN BEGIN|command('/display File not found ' ,$pirchpath + 'pirch32.ini ', $Filename) ;| {try and create the required ini file}| IF FILEEXISTS($pirchpath + 'pirch32.ini') THEN BEGIN| COMMAND('/write -C ', $Filename) ;| END ;| IF NOT FILEEXISTS($FileName) THEN BEGIN| COMMAND('/notice ', $me, ' The shouting INI file ', $FileName, ' does not exist, please create it') ;| HALT ;| END ;|END ;|{turn the first two parameters into variables}|$ThePers := $2 ;|$DoWhat := $1 ;|IF STRLOWER($DoWhat) = 'check' THEN BEGIN| $TheChan := $3 ;| {=== stop running if i don't have channel ops ===}| IF ISOP($TheChan, $me) = 0 THEN| HALT ;| $SaidWhat := *4 ;| IF STRLEN($SaidWhat) < MinLength THEN| HALT ;| {=== Test to see if the person meets the shouting criteria ===}| k := STRLEN($SaidWhat) ;| InUpper := 0 ;| IsLetter := 0 ;| $TestLet := '' ;| FOR i := 1 TO k DO| BEGIN| $TestLet := STRCOPY($SaidWhat, i, 1) ;| IF ($TestLet >= 'A' AND $TestLet <= 'Z') OR ($TestLet >='a' AND $TestLet <= 'z') THEN| BEGIN| IsLetter := IsLetter +1 ;| IF $TestLet = STRUPPER( $TestLet) THEN| InUpper := InUpper + 1;| END ;| END ;| {stop if less than 15 letters were in the string}| IF IsLetter < MinLength THEN| HALT ;| { only continue if the 75% or more of the string is uppercase }| IF InUpper * 100 / IsLetter < MinPercent THEN| HALT ;| {==========================================================| Look the person up, and get any variables that already pertain to them| ===========================================================}| {retrieve the block that the person is in}| $ShoutBlock := INIREAD($FileName, 'recheader', $ThePers, 'shout0') ;| {get the number of warnings issued}| NumWarn := STRTOINT(INIREAD($FileName, $ShoutBlock, 'warnings', '0'));| TimeDiff := 0;| IF NumWarn > 0 THEN | BEGIN| $lastwarn := INIREAD($FileName, $ShoutBlock, 'warntime', '0') ;| TimeDiff := UNIXTIME - STRTOINT($lastwarn) ;| IF TimeDiff > ShoutTime THEN| NumWarn := 0 ;| END ;| IF NumWarn < WarnToKick THEN | NumWarn := NumWarn + 1 ;| {=== take action on their shouting ==}| IF NumWarn = WarnToKick THEN BEGIN| COMMAND('/query ', $ThePers, ' I have kicked you from ', $TheChan, ' for ignoring my previous requests to stop using caps') ;| COMMAND('/query ', $ThePers, ' you may rejoin the channel, but no more caps warnings will be given for a while') ;| COMMAND('/kick ', $TheChan, ' ', $ThePers, ' CAPS kick') ;| END| ELSE IF NumWarn = WarnToKick - 1 THEN BEGIN| COMMAND('/msg ', $ThePers, ' This is my last request, please refrain from using caps') ;| COMMAND('/opnotice ' + $TheChan + ' ' + $me + ' has asked ', $ThePers, ' to stop shouting for the last time') ;| END | ELSE IF NumWarn > 1 THEN BEGIN| IF NumWarn = 2 THEN BEGIN| $ThTime := 'nd' ;| END | ELSE IF NumWarn = 3 THEN BEGIN| $ThTime := 'rd' ;| END | ELSE BEGIN| $ThTime := 'th' ;| END ;| COMMAND('/msg ', $ThePers, ' I ask again, please refrain from using caps') ;| COMMAND('/opnotice ' + $TheChan + ' ' + $me + ' has asked ' + | $ThePers, ' to stop shouting for the ',NumWarn, $ThTime + ' time') ;| END| ELSE IF NumWarn = 1 THEN BEGIN| COMMAND('/msg ', $ThePers, ' Please refrain from using caps ') ;| COMMAND('/msg ', $ThePers, ' It is considered to be shouting. this is a auto msg do not respond ') ;| END ;| {write the new status to the ini file}| $WarnVar := INTTOSTR(NumWarn);| $WritTime := INTTOSTR(UNIXTIME) ;| IF $ShoutBlock = 'shout0' THEN BEGIN| $ThisRec := INTTOSTR(STRTOINT(INIREAD($FileName, 'recheader', 'totrecs', '0')) + 1) ;| INIWRITE($FileName, 'RecHeader', 'TotRecs', $ThisRec) ;| INIWRITE($FileName, 'recheader', $ThePers, 'Shout' + $ThisRec) ;| $Shoutblock := 'shout' + $ThisRec ;| END ;| INIWRITE($FileName, $ShoutBlock, 'Warnings', $WarnVar);| INIWRITE($FileName, $ShoutBlock, 'WarnTime', $WritTime) ;| INIWRITE($FileName, $ShoutBlock, 'WarnRec', $ThisRec) ;| INIWRITE($FileName, $ShoutBlock, 'WarnNick', $ThePers) ;| COMMAND('/timer Shout' , $ThisRec, ' 1 ', ShoutTime, ' /runscript [shouting] delete ', $Shoutblock) ;|END|IF $DoWhat = 'delete' THEN|BEGIN| {Find the nickname of the person}| $TheNick := INIREAD($FileName, $ThePers, 'WarnNick', '0') ;| {-----------------------------------}| {remove the person from the ini file}| COMMAND('/remini ', $FileName, ' ', $ThePers) ;| COMMAND('/remini ', $FileName, ' recheader ', $TheNick) ;| COMMAND('/notice ', $TheNick, ' All is forgiven about shouting, I have reset the CAPS warning counter to 0 (zero) ') ;| {Write the new mximum record header}| INIWRITE($FileName, 'RecHeader', 'TotRecs', $MoveWhatNum) ;| {-----------------------------------}| {remove the person that caused the delete timer to fire}| {Find the number of the record block being accessed. Do this using the parameter| Call me picky, but this is done purely for data integrity purposes}| NewMaxRecs := STRTOINT(INIREAD($FileName, 'RecHeader', 'TotRecs', '0')) ;| TestTime := STRTOINT(INIREAD($FileName, 'Shout' + $NewMaxRecs, 'warntime', '0')) ;| {If this is the last block in the series then reduce the value stored | in the INI file for the maximun number of records}| WHILE TestTime = 0 AND NewMaxRecs > 0 DO| BEGIN| NewMaxRecs := NewMaxRecs - 1 ;| TestTime := STRTOINT(INIREAD($FileName, 'Shout' + $NewMaxRecs, 'warntime', '0'))| END ;| INIWRITE($FileName, 'RecHeader', 'TotRecs', $NewMaxRecs) ;|END|{|== This section deals with a person changing their nickname ==|}|IF $DoWhat = 'alterednick' THEN|BEGIN| $NewNick := $3 ;| {look to see where if the name is held within the file}| $WhatBlock := INIREAD($FileName, 'RecHeader', $ThePers, 'shout0') ;| IF $WhatBlock <> 'shout0' THEN| BEGIN| {remove the nicname from the record header block}| COMMAND('/remini ', $FileName, ' RecHeader ', $ThePers);| {write the new nickname to the file}| INIWRITE($FileName, 'RecHeader', $NewNick, $WhatBlock) ;| INIWRITE($FileName, $WhatBlock, 'WarnNick', $NewNick) ;| END ;|END|COMMAND('/flushini ', $FileName) ;
[STRYPE4]:{stryperword_r pil by cpw|usage /runscript [strype4] text}|$target := '';|$source := *1 ;|$text:='startval'| b := random(7); | if b = 0 then bcolor := 0;| if b = 1 then bcolor := 4;| if b = 2 then bcolor := 8;| if b = 3 then bcolor := 9;| if b = 4 then bcolor := 11;| if b = 5 then bcolor := 12;| if b = 6 then bcolor := 13| if b = 7 then bcolor := 15;| $bcolor := inttostr(bcolor);| f := random(7);| if f = 0 then fcolor := 1;| if f = 1 then fcolor := 2;| if f = 2 then fcolor := 3;| if f = 3 then fcolor := 5;| if f = 4 then fcolor := 6;| if f = 5 then fcolor := 7;| if f = 6 then fcolor := 10;| if f = 7 then fcolor := 14;| $fcolor := inttostr(fcolor);| while $text<>'' do| begin| $text:=strtoken($source);| $target := $target+''+$fcolor+','+$bcolor+' '+$text+' ';| $text:=strtoken($source);| $target := $target+''+$bcolor+','+$fcolor+' '+$text+' ';| end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|
[TAKEOVER]:{Takeover used for UTOPIA╖43 v2.3b}|usercount := strtoint($members);|$ops := '';|for i := 1 to usercount do|begin| $s := nicklist($audience,i);| if (isop($audience,$s)) and ($s <> $me) then|begin|$ops := $ops + $s + ' ';|end|end;|command('/mode ',$audience,' -oooooooooooooo ',$ops);|command('/mode ',$audience,' +liknts ',usercount,' Takeover ');|command('/topic ',$audience,' -={WiLdEr ScRiPtS(TaKeOva MoDe)}=- ');
[TEMPBAN]:{ Temp Ban/Kick ver 1.5 (9/19/96 ===== Written by MtnMan ===== |Kicks and temporarily bans a user for a duration of your choosing in seconds, and redirects a /whois to the channel for logging.|The channel is designated with the $wn variable.|Usage: /tbk nick|Create an alias called TBK|---------------------------------------------------------------------------------------------------------------|/define temptimer= $+ $$?="kaτ saniye banlensin"|/define bchan= $+ #|/ban # $$1 3|/kick # $$1 $$?="kick/ban iτin neden?"|/callback 301 [TEMPBAN]|/callback 311 [TEMPBAN]|/callback 319 [TEMPBAN]|/callback 312 [TEMPBAN]|/callback 313 [TEMPBAN]|/callback 317 [TEMPBAN]|/callback 318 [TEMPBAN]|/whois $$1|--------------------------------------------------------------------------------------------------------------- }|$timer := $temptimer|$wn := $bchan { THIS IS THE CHANNEL TO BE KICKED FROM }|$msg := *2;|$namemsg := *8|{ $test := $0 }|$cde := strtoken($msg);|$x := strtoken($msg); {requesting nick}|$nick := strtoken($msg); {whois nick}|code := strtoint($cde); {RPL CODE}|if code = 301 then| begin| strdel($msg,1,1);| command('/display > ',$wn,' ',\17,,$msg);| end|else if code = 311 then| begin| | $id := strtoken($msg); {userid}| $port :=strtoken($msg); {portserver}| $break :=strtoken($msg); {break}| $username :=strtoken($msg); {user name}| command('/timer ',$nick,'BAN',' 1 ',$temptimer,' /mode ',$wn,' -b *!*@',$port);| command('/display > ',$wn,' ',\16,\2,$nick,\2,' ',$nick,'!',$id,'@',$port,' ',$break,' ',$namemsg);| end|else if code = 319 then| begin| strdel($msg,1,1);| command('/display > ',$wn,' ',\16,$msg);| end|else if code = 312 then| begin| command('/display > ',$wn,' ',\16,$msg);| end|else if code = 313 then| begin| strdel($msg,1,1);| command('/display > ',$wn,' ',\18,\2,'IRCop: ',\2,\22,\31,$nick,\31,' ',$msg,\22);| end|else if code = 317 then| begin| $idl := strtoken($msg);| $tm := strtoken($msg);| command('/display > ',$wn,' ',\16,$idl,' seconds idle, logged in at ', $tm);| end|else if code = 318 then| begin| strdel($msg,1,1);| command('/display > ',$wn,' ',\16,$msg);|command('/callback -d 301');|command('/callback -d 311');|command('/callback -d 319');|command('/callback -d 312');|command('/callback -d 313');|command('/callback -d 317');|command('/callback -d 318');|command('/undefine temptimer');|command('/undefine bchan');|end;
[TEXTFLOOD]:{\\\\\\\\\\\\\\\\\\\\\\\\\ TextFlood detect, by Xanth \\\\\\\\\\\\\\\\\\\\\\\\}|{These lines must be added to the events section, to trigger the script.}|{ ON TEXT:*:#:/runscript [textflood] $nick *1 }|{ ON ACTION:*:#:/runscript [textflood] $nick *1 }|{Some limits you can set yourself:}|firstwarn:=2; {when to warn first time}|secondwarn:=5; {when to warn second time}|kicklimit:=7; {when to be kicked, after how many repeats}|windowsize:=10; {the size of the window we are monitoring...number of lines}|longstring:=200; {on very long strings you get a kick win up, define length here}|$textstring := *2;|$nickname := $1;|textlength:=strlen($textstring);|nicklength:=strlen($nickname);|{expand nickname to 9 chars and textstring to =< 246 chars, together max 255 chars}|if nicklength < 9 then for i:= (nicklength + 1) to 9 do $nickname:=$nickname + ' ';|if textlength>246 then $textstring:=strcopy($textstring,1,246);|if textlength>longstring then begin| $ni:=$nickname;| command('/runscript [okbox] ',$ni); | end;|repeats:=0;|{check if nick+textline is in our window}|textindex:=listsearch(strtoint($textlist),$nickname+$textstring);|{if found in our window....we have a match!}|if textindex<>0 then begin| {get the nick with number of repeats so far in the nicklist}| $nostring:=listget(strtoint($nicklist),textindex);| {take the repeats outa the string and increment}| repeats:=strtoint(strcopy($nostring,10,strlen($nostring)-9))+1;| if repeats = kicklimit then begin| {kick him and zero the repeats number}| repeats:=0;| {$ni:=$nickname;| command('/runscript [okbox] ',$ni); }| command('/kick #funfactory ',$nickname,' Kicked for flooding the channel with text (repeating)!!! ');| end else | if (repeats=firstwarn) then| command('/me asks ',$nickname,' to please stop repeating text (flooding).....')| else | if (repeats=secondwarn) then| command('/notice ',$nickname,' Please stop repeating text (flooding) or you will get kicked!!!!');|end; |{well then just update our lists...}|tmp:=listinsert(strtoint($textlist),1,$nickname+$textstring);|tmp:=listinsert(strtoint($nicklist),1,$nickname+inttostr(repeats));|{check the size of the lists and delete if too big...}|num:=listcount(strtoint($textlist));|if num > windowsize then tmp:=listdelete(strtoint($textlist),num);|num:=listcount(strtoint($nicklist));|if num > windowsize then tmp:=listdelete(strtoint($nicklist),num);
[TEXTPLAYER]:{|this is my TextPlayer pil|useage |popup textplay:/runscript [textplayer] create|alias TP and insert into alias TP /runscript [textplayer] create|*************************************************************|NOTICE |a nick has to be selected for the texp player to insert|a nick into it. It will play but not add the nick|*************************************************************|need help find me here|#popups_for_fun neato.org:6667|#pirch / #chatcircuit irc.mscomm.com:6667|**************************************************************|Please read the readme text file along with the help|file for any questions you may have|budman |}|{*********************************************}|{ the line below can be altered to allow you to keep text files|where they are currently }|$tpath := 'c:\edge\ascii\';|{ ********************************************}|$ne := $netid ;|$se := $server ;|$ho := $host ;|$ch := $activewin ;|$chan :=$activewin;|for i := 1 to snickcount($chan)do|$name:= snicklist($chan,i);|$cmd := $1;|$params := *2;|$helpfile := $pirchpath+'textplayer.hlp';|$ad :='4TextPlayer for 10Pirch4 by Budman is available at';|$add :=' 3 http://www.geocities.com/SiliconValley/Heights/4350/player.html';|$stop :='4 Play Stopped';|if strupper($cmd) = 'CREATE' then|begin|ttag := 0;|$batfn := $pirchpath+'txtlist.bat';|$txtlist := '"'+$pirchpath+'txtlist.txt"';|$txtsort := '"'+$pirchpath+'txtsort.txt"';|$txtbat := 'dir "'+$tpath+'*.txt" /b /l > '+$txtlist;|$txtbat1 := 'sort '+$txtlist+ ' > '+$txtsort;|txtplayer := createwindow('TextPlayer V1.02 by ▀udman ',380,63,300,132);|setwindowattr(txtplayer,12,2);|list := creategadget(txtplayer,7,0,0,245,100);|setwindowattr(list,3,5);|txtbat1 := creategadget(txtplayer,7,0,0,100,30);|setwindowattr(txtbat1,7,0);|id := listappend(txtbat1,'@Echo off');|id := listappend(txtbat1,$txtbat);|id := listappend(txtbat1,$txtbat1);|id := listappend(txtbat1,'exit');|bat := savetofile(txtbat1,$batfn);|command('/run '+$batfn);|for x := 1 to 27000 do breathe;|txtlist := loadfromfile(list,$pirchpath+'txtsort.txt');|count := listcount(list);|if count = 0 then txtlist := loadfromfile(list,$pirchpath+'txtsort.txt');|txtpanl := creategadget(txtplayer,10,265,20,89,162);|setwindowattr(txtpanl,3,4);|playbtn := creategadget(txtpanl,4,0,2,85,18);|setwindowtext(playbtn,'Play File');|setevent(playbtn,1,'/runscript [textplayer] PLAY $snick ');|playbtn2 := creategadget(txtpanl,4,0,22,85,18);|setwindowtext(playbtn2,'Stop Play');|setevent(playbtn2,1,'/runscript [textplayer] STOP');|playbtn3 := creategadget(txtpanl,4,0,42,85,18);|setwindowtext(playbtn3,'Minimize Payer');|setevent(playbtn3,1,'/runscript [textplayer] MINI');|playbtn4 := creategadget(txtpanl,4,0,62,85,18);|setwindowtext(playbtn4,'Advertise');|setevent(playbtn4,1,'/runscript [textplayer] ADD');|playbtn5 := creategadget(txtpanl,4,0,82,85,18);|setwindowtext(playbtn5,'Help');|setevent(playbtn5,1,'/execute '+$helpfile);|end;|if strupper($cmd) = 'STOP' then|begin|Command('/msg ',' ',$chan,' ',$stop);|Command('/display > ',' ',$chan,' <',$me,'>',$stop);|halt|end;|if strupper($cmd) = 'ADD' then|begin|Command('/msg ',' ',$chan,' ',$ad);|Command('/display > ',' ',$chan,' <',$me,'>',$ad); |Command('/msg ',' ',$chan,' ',$add);|Command('/display > ',' ',$chan,' <',$me,'>',$add); |end;|if StrUpper($cmd)='MINI' then begin|setwindowattr(txtplayer,7,0);|Player:=CreateWindow('Text Player',600,20,85,45);|SetWindowAttr(Player,12,5);|Button1:=CreateGadget(Player,4,1,0,75,19);|SetWindowText(Button1,'Maximize');|SetEvent(Button1,1,'/runscript [textplayer] MAX');|end;|if StrUpper($cmd)='MAX' then begin|setwindowattr(txtplayer,7,1);|destroywindow(Player);|end;|if strupper($cmd) = 'PLAY' then|begin|select := listselection(list);|if select > 0 then|begin|$text := listget(list,select);|$fullname := whereis($text,$tpath);|if fileexists($fullname) then|begin|size := filesize($fullname);|$sz := inttostr(size);|if strlen($sz) >0 then|$sz := $sz + ' bytes'|else|end;|Command('/msg ',' ',$chan,' ','4TextPlayer for Pirch ','12 ½13 ',$text,'12 ╗ ½13 ',$sz,'12 ╗ ½13 ',$chan,'12 ╗');|Command('/display > ',' ',$chan,' <',$me,'>','4TextPlayer for Pirch ','12 ½13 ',$text,'12 ╗ ½13 ',$sz,'12 ╗ ½13 ',$chan,'12 ╗');|$en :='4,0▌1 4,0▌0 4 Paste to channel window for copy of this file';|$defmsg :='@'+$me+' '+$text;|linenum := 0;|if fileexists($fullname) then begin|while not done do begin|linenum := linenum+1;|if fileread($fullname,linenum,$s) then begin|while strpos('$1',$s) do begin|startpos := strpos('$1',$s);|strdel($s,startpos,2);|strins($name,$s,startpos);|end;|while strpos('$ch',$s) do begin|startpos := strpos('$ch',$s);|strdel($s,startpos,3);|strins( $ch ,$s,startpos);|end;|while strpos('$date',$s) do begin|startpos := strpos('$date',$s);|strdel($s,startpos,5);|strins( $date ,$s,startpos);|end;|while strpos('$ip',$s) do begin|startpos := strpos('$ip',$s);|strdel($s,startpos,5);|strins( $ip ,$s,startpos);|end;|while strpos('$day',$s) do begin|startpos := strpos('$day',$s);|strdel($s,startpos,5);|strins( $day ,$s,startpos);|end;|while strpos('$time',$s) do begin|startpos := strpos('$time',$s);|strdel($s,startpos,5);|strins( $time ,$s,startpos);|end;|while strpos('$me',$s) do begin|startpos := strpos('$me',$s);|strdel($s,startpos,3);|strins( $me ,$s,startpos);|end;|while strpos('$ho',$s) do begin|startpos := strpos('$ho',$s);|strdel($s,startpos,3);|strins( $ho ,$s,startpos);|end;|while strpos('$se',$s) do begin|startpos := strpos('$se',$s);|strdel($s,startpos,3);|strins( $se ,$s,startpos);|end;|while strpos('$ne',$s) do begin|startpos := strpos('$ne',$s);|strdel($s,startpos,3);|strins( $ne ,$s,startpos);|end;|while strpos('$en',$s) do begin|startpos := strpos('$en',$s);|strdel($s,startpos,3);|strins( $en ,$s,startpos);|Command('/msg ',' ',$chan,' ',$defmsg);|Command('/display > ',' ',$chan,' <',$me,'>',$defmsg); |end;|while strpos('%az',$s) do begin|startpos := strpos('%az',$s);|strdel($s,startpos,3);|strins( $name ,$s,startpos);|end;|while strpos('%mz',$s) do begin|startpos := strpos('%mz',$s);|strdel($s,startpos,3);|strins( $me ,$s,startpos);|end;|while strpos('%cz',$s) do begin|startpos := strpos('%cz',$s);|strdel($s,startpos,3);|strins( $ch ,$s,startpos);|end;|while strpos('%dz',$s) do begin|startpos := strpos('%dz',$s);|strdel($s,startpos,3);|strins( $da ,$s,startpos);|end;|while strpos('%tz',$s) do begin|startpos := strpos('%tz',$s);|strdel($s,startpos,3);|strins( $ti ,$s,startpos);|end;|while strpos('/say',$s) do begin|startpos := strpos('/say',$s);|strdel($s,startpos,3);|strins( $sa,$s,startpos);|end;|while strpos('%AZ',$s) do begin|startpos := strpos('%AZ',$s);|strdel($s,startpos,3);|$name :=' '+$name+' ';|strins( $name ,$s,startpos);|end;|while strpos('%MZ',$s) do begin|startpos := strpos('%MZ',$s);|strdel($s,startpos,3);|strins( $me ,$s,startpos);|end;|while strpos('%CZ',$s) do begin|startpos := strpos('%CZ',$s);|strdel($s,startpos,3);|strins( $ch ,$s,startpos);|end;|while strpos('%DZ',$s) do begin|startpos := strpos('%DZ',$s);|strdel($s,startpos,3);|strins( $da ,$s,startpos);|end;|while strpos('%TZ',$s) do begin|startpos := strpos('%TZ',$s);|strdel($s,startpos,3);|strins( $ti ,$s,startpos);|end;|while strpos('/SAY',$s) do begin|startpos := strpos('/SAY',$s);|strdel($s,startpos,3);|strins( $sa,$s,startpos);|end;|while strpos('/ME',$s) do begin|startpos := strpos('/ME',$s);|strdel($s,startpos,3);|strins( $sa,$s,startpos);|end;|while strpos('/me',$s) do begin|startpos := strpos('/me',$s);|strdel($s,startpos,3);|strins( $sa,$s,startpos);|end;|while strpos('$so',$s) do begin|startpos := strpos('$so',$s);|strdel($s,startpos,3);|command('/sound '+$ch+$s);|$s :='4 Now playing 12½13'+$s+'12 ╗';|end;|for s := 1 to 90000 do breathe;|Command('/msg ',' ',$chan,' ',$s);|Command('/display > ',' ',$chan,' <',$me,'>',$s); |end|else halt;|end;|end;|end;|end
[TICTAC]:{You MUST copy these following lines into ur events and be sure to have them enabled,,|======TICTAC====================== |ON NOTICE:play*:*:/runscript [tictac] play play *2|}|{If you need anymore help refer to the Help file that should have bee included}|{This is Tic Tac Toe PIL Created by bbb and Dot on December 23,1996}|{Come see all the wonderful PIL Scripts at http://www.adorable.com/sunscript}|$ticyikes:=$1; |$yikes1:=*2;|$lala1:=strtoken($yikes1);|if strupper($ticyikes)='START' then|begin;|$ohh1:='';|$ohh2:='';|$ohh3:='';|$ohh4:='';|$ohh5:='';|$ohh6:='';|$ohh7:='';|$ohh8:='';|$ohh9:='';|gameday:=createwindow('SunScript Super TicTacToe',40,40,200,243);|tic1:=creategadget(gameday,2,65,8,20,20);|tic2:=creategadget(gameday,2,86,8,20,20);|tic3:=creategadget(gameday,2,107,8,20,20);|tic4:=creategadget(gameday,2,65,29,20,20);|tic5:=creategadget(gameday,2,86,29,20,20);|tic6:=creategadget(gameday,2,107,29,20,20);|tic7:=creategadget(gameday,2,65,50,20,20);|tic8:=creategadget(gameday,2,86,50,20,20);|tic9:=creategadget(gameday,2,107,50,20,20); |setwindowattr(tic1,2,16711935);|setwindowattr(tic1,1,0); |setwindowattr(tic2,2,16711935);|setwindowattr(tic2,1,0);|setwindowattr(tic3,2,16711935);|setwindowattr(tic3,1,0);|setwindowattr(tic4,2,16711935);|setwindowattr(tic4,1,0);|setwindowattr(tic5,2,16711935);|setwindowattr(tic5,1,0);|setwindowattr(tic6,2,16711935);|setwindowattr(tic6,1,0);|setwindowattr(tic7,2,16711935);|setwindowattr(tic7,1,0);|setwindowattr(tic8,2,16711935);|setwindowattr(tic8,1,0);|setwindowattr(tic9,2,16711935);|setwindowattr(tic9,1,0);|gogogo:=creategadget(gameday,4,65,73,64,24); |setevent(gogogo,1,'/runscript [tictac] aiwa');|setwindowtext(gogogo,'OK');|guesswho:=creategadget(gameday,2,53,104,90,20);|imsorry:=creategadget(gameday,1,33,126,100,20);|setwindowtext(imsorry,'Your Opponents Nickname');|setwindowattr(guesswho,2,16711935);|setwindowattr(guesswho,1,0);|waht:=creategadget(gameday,2,63,148,70,20);|setwindowtext(waht,'X Goes First!');|nodoubt:=creategadget(gameday,1,66,170,80,20);|setwindowtext(nodoubt,'Game Status');|setwindowattr(waht,2,16711935);|setwindowattr(waht,1,0);|micron:=creategadget(gameday,4,5,193,90,25);|dell:=creategadget(gameday,4,99,193,90,25);|setwindowtext(micron,'How To Play');|setwindowtext(dell,'About This PIL'); |setevent(dell,1,'/runscript [tictac] about');|setevent(micron,1,'/runscript [tictac] sometimes');|end;|if strupper($ticyikes)='SOMETIMES' then |begin|doublemint:=createwindow('SunScript Super TicTacToe',170,100,262,185);|double:=creategadget(doublemint,9,3,3,250,160);|setwindowtext(double,'HOW TO PLAY');|line2:=creategadget(double,1,5,25,235,20);|setwindowtext(line2,'1. first of all find someone too play with');|line3:=creategadget(double,1,5,40,235,20);|setwindowtext(line3,'2. type their nickname in the nickname box');|line4:=creategadget(double,1,5,55,235,20);|setwindowtext(line4,'3. decide who wants to be X or O');|line5:=creategadget(double,1,5,70,235,20);|setwindowtext(line5,'4. X will always get to go first');|line6:=creategadget(double,1,5,85,235,20);|setwindowtext(line6,'5. player X types a X in the box and presses OK');|line7:=creategadget(double,1,5,100,235,20);|setwindowtext(line7,'6. player O then makes a O and presses OK');|line8:=creategadget(double,1,5,115,235,20);|setwindowtext(line8,'7. continuing taking turns til theres a winner or a tie');|line9:=creategadget(double,1,5,130,235,20);|setwindowtext(line9,'8. have lots of fun playing');|end;|if strupper($ticyikes)='ABOUT' then |begin|sunscript:=createwindow('About SunScript PILs',150,150,270,150);|thansk:=creategadget(sunscript,2,73,10,120,20);|setwindowtext(thansk,' Super TicTacToe '); |setwindowattr(thansk,2,16777215);|setwindowattr(thansk,1,0);|aboutlovers:=creategadget(sunscript,2,24,40,100,20);|setwindowattr(aboutlovers,2,16711935);|setwindowattr(aboutlovers,1,0);|younme:=creategadget(sunscript,2,140,40,100,20);|setwindowattr(younme,2,16711935);|setwindowattr(younme,1,0);|sonyspeakers:=creategadget(sunscript,2,82,65,100,20);|setwindowattr(sonyspeakers,2,16711935);|setwindowattr(sonyspeakers,1,0);|anotherlabel:=creategadget(sunscript,2,45,93,180,20);|setwindowattr(anotherlabel,2,16777215);|setwindowattr(anotherlabel,1,0);|setwindowtext(anotherlabel,'http://www.adorable.com/sunscript');|command('/timer ticsmile -1 .07 /runscript [tictac] woowoo');|command('/timer ticabout23 -1 .07 /runscript [tictac] ewww');|end;|if strupper($ticyikes)='WOOWOO' then |begin|abc:=abc+1;|if abc=1 then|begin|setwindowattr(thansk,2,16777215);|setwindowattr(anotherlabel,2,16777215);|end;|if abc=2 then|begin|setwindowattr(thansk,2,255);|setwindowattr(anotherlabel,2,255);|end;|if abc=3 then|begin|setwindowattr(thansk,2,16711680);|setwindowattr(anotherlabel,2,16711680);|abc:=0;|end;|end;|setevent(sunscript,1,'/runscript [tictac] aboutstop');|if strupper($ticyikes)='EWWW' then |begin|efg:=efg+1;|if efg <= 30 then|begin|setwindowtext(aboutlovers,' Created by ');|setwindowtext(younme,' Version ');|setwindowtext(sonyspeakers,' Release Date ');|end;|if efg = 31 then|begin|setwindowtext(aboutlovers,' Dot and bbb');|setwindowtext(younme,' 1.0 ');|setwindowtext(sonyspeakers,' 12/23/96 ');|end;|if efg > 32 and efg < 55 then|begin|$feedme:=getwindowtext(aboutlovers);|strdel($feedme,1,1);|setwindowtext(aboutlovers,$feedme);|$felllikethis:=getwindowtext(younme);|strdel($felllikethis,1,1);|setwindowtext(younme,$felllikethis);|$nec:=getwindowtext(sonyspeakers);|strdel($nec,1,1);|setwindowtext(sonyspeakers,$nec);|end;|if efg >=56 and efg <=58 then|begin|setwindowattr(aboutlovers,2,0);|setwindowattr(younme,2,0);|setwindowattr(sonyspeakers,2,0);|end;|if efg >=58 and efg <=60 then|begin|setwindowattr(aboutlovers,2,16711935);|setwindowattr(younme,2,16711935);|setwindowattr(sonyspeakers,2,16711935);|end;|if efg >=62 and efg <=64 then|begin|setwindowattr(aboutlovers,2,0);|setwindowattr(younme,2,0);|setwindowattr(sonyspeakers,2,0);|end;|if efg >=66 and efg <=68 then|begin|setwindowattr(aboutlovers,2,16711935);|setwindowattr(younme,2,16711935);|setwindowattr(sonyspeakers,2,16711935);|end;|if efg >=68 and efg <=70 then|begin|setwindowattr(aboutlovers,2,0);|setwindowattr(younme,2,0);|setwindowattr(sonyspeakers,2,0);|end;|if efg >=72 and efg <=74 then|begin|setwindowattr(aboutlovers,2,16711935);|setwindowattr(younme,2,16711935);|setwindowattr(sonyspeakers,2,16711935);|end;|if efg > 75 and efg < 95 then |begin|$feedme3:=getwindowtext(aboutlovers);|strdel($feedme3,1,1);|setwindowtext(aboutlovers,$feedme3);|$bemyfault:=getwindowtext(younme);|strdel($bemyfault,1,1);|setwindowtext(younme,$bemyfault);|$neatoca:=getwindowtext(sonyspeakers);|strdel($neatoca,1,1);|setwindowtext(sonyspeakers,$neatoca);|end;|if efg = 99 then|begin|efg:=0;|end;|end;|if strupper($ticyikes)='ABOUTSTOP' then |begin|command('/timer ticsmile die');|command('/timer ticabout23 die');|end; |if strupper($ticyikes)='XFILES' then |begin|waht2:=creategadget(gameday,4,5,148,181,21);|setwindowtext(waht2,'X wins! Now click here to play again!');|setevent(waht2,1,'/runscript [tictac] newsgroups');|end;|if strupper($ticyikes)='OFILES' then |begin|waht2:=creategadget(gameday,4,5,148,181,21);|setwindowtext(waht2,'O wins! Now click here to play again!');|setevent(waht2,1,'/runscript [tictac] newsgroups');|end;|if strupper($ticyikes)='NEWSGROUPS' then |begin|destroywindow(gameday);|command('/runscript [tictac] start');|end;|if strupper($ticyikes)='AIWA' then |begin|$precious:='';|$kinkos:='';|$ohh1:='';|$ohh2:='';|$ohh3:='';|$ohh4:='';|$ohh5:='';|$ohh6:='';|$ohh7:='';|$ohh8:='';|$ohh9:='';|$ohh01:='';|$ohh02:='';|$ohh03:='';|$ohh04:='';|$ohh05:='';|$ohh06:='';|$ohh07:='';|$ohh08:='';|$ohh09:='';|$precious:=getwindowtext(guesswho);|$ohh1:=getwindowtext(tic1);|$ohh2:=getwindowtext(tic2);|$ohh3:=getwindowtext(tic3);|$ohh4:=getwindowtext(tic4);|$ohh5:=getwindowtext(tic5);|$ohh6:=getwindowtext(tic6);|$ohh7:=getwindowtext(tic7);|$ohh8:=getwindowtext(tic8);|$ohh9:=getwindowtext(tic9);|if strupper($ohh1)='X' then |begin|$ohh01:='x';|end;|if strupper($ohh2)='X' then |begin|$ohh02:='x';|end;|if strupper($ohh3)='X' then |begin|$ohh03:='x';|end;|if strupper($ohh4)='X' then |begin|$ohh04:='x';|end;|if strupper($ohh5)='X' then |begin|$ohh05:='x';|end;|if strupper($ohh6)='X' then |begin|$ohh06:='x';|end;|if strupper($ohh7)='X' then |begin|$ohh07:='x';|end;|if strupper($ohh8)='X' then |begin|$ohh08:='x';|end;|if strupper($ohh9)='X' then |begin|$ohh09:='x';|end;|if strupper($ohh1)='O' then |begin|$ohh01:='o';|end;|if strupper($ohh2)='O' then |begin|$ohh02:='o';|end;|if strupper($ohh3)='O' then |begin|$ohh03:='o';|end;|if strupper($ohh4)='O' then |begin|$ohh04:='o';|end;|if strupper($ohh5)='O' then |begin|$ohh05:='o';|end;|if strupper($ohh6)='O' then |begin|$ohh06:='o';|end;|if strupper($ohh7)='O' then |begin|$ohh07:='o';|end;|if strupper($ohh8)='O' then |begin|$ohh08:='o';|end;|if strupper($ohh9)='O' then|begin|$ohh09:='o';|end;|if strupper($ohh1)='' then |begin|$ohh01:='.';|end;|if strupper($ohh2)='' then |begin|$ohh02:='.';|end;|if strupper($ohh3)='' then |begin|$ohh03:='.';|end;|if strupper($ohh4)='' then |begin|$ohh04:='.';|end;|if strupper($ohh5)='' then |begin|$ohh05:='.';|end;|if strupper($ohh6)='' then |begin|$ohh06:='.';|end;|if strupper($ohh7)='' then |begin|$ohh07:='.';|end;|if strupper($ohh8)='' then |begin|$ohh08:='.';|end;|if strupper($ohh9)='' then |begin|$ohh09:='.';|end;|$kinkos:='play '+$ohh01+' '+$ohh02+' '+$ohh03+' '+$ohh04+' '+$ohh05+' '+$ohh06+' '+$ohh07+' '+$ohh08+' '+$ohh09;|command('/notice ',$precious,' ',$kinkos);|command('/runscript [tictac] lotus789');|command('/runscript [tictac] lotus456');|command('/runscript [tictac] lotus123');|end;|if strupper($ticyikes)='PLAY' then|begin|$lala1:=strtoken($yikes1);|$lala2:=strtoken($yikes1);|$lala3:=strtoken($yikes1);|$lala4:=strtoken($yikes1);|$lala5:=strtoken($yikes1);|$lala6:=strtoken($yikes1);|$lala7:=strtoken($yikes1);|$lala8:=strtoken($yikes1);|$lala9:=strtoken($yikes1);|if strupper($lala1)='X' then|begin|setwindowtext(tic1,'X');|end;|if strupper($lala2)='X' then|begin|setwindowtext(tic2,'X');|end;|if strupper($lala3)='X' then|begin|setwindowtext(tic3,'X');|end;|if strupper($lala4)='X' then|begin|setwindowtext(tic4,'X');|end;|if strupper($lala5)='X' then|begin|setwindowtext(tic5,'X');|end;|if strupper($lala6)='X' then|begin|setwindowtext(tic6,'X');|end;|if strupper($lala7)='X' then|begin|setwindowtext(tic7,'X');|end;|if strupper($lala8)='X' then|begin|setwindowtext(tic8,'X');|end;|if strupper($lala9)='X' then|begin|setwindowtext(tic9,'X');|end;|if strupper($lala1)='O' then|begin|setwindowtext(tic1,'O');|end;|if strupper($lala2)='O' then|begin|setwindowtext(tic2,'O');|end;|if strupper($lala3)='O' then|begin|setwindowtext(tic3,'O');|end;|if strupper($lala4)='O' then|begin|setwindowtext(tic4,'O');|end;|if strupper($lala5)='O' then|begin|setwindowtext(tic5,'O');|end;|if strupper($lala6)='O' then|begin|setwindowtext(tic6,'O');|end;|if strupper($lala7)='O' then|begin|setwindowtext(tic7,'O');|end;|if strupper($lala8)='O' then|begin|setwindowtext(tic8,'O');|end;|if strupper($lala9)='O' then|begin|setwindowtext(tic9,'O');|end;|command('/runscript [tictac] lotus789');|command('/runscript [tictac] lotus456');|command('/runscript [tictac] lotus123');|end;|if strupper($ticyikes)='LOTUS123' then|begin|$ohh1:='';|$ohh2:='';|$ohh3:='';|$ohh4:='';|$ohh5:='';|$ohh6:='';|$ohh7:='';|$ohh8:='';|$ohh9:='';|$ohh1:=getwindowtext(tic1);|$ohh2:=getwindowtext(tic2);|$ohh3:=getwindowtext(tic3);|$ohh4:=getwindowtext(tic4);|$ohh5:=getwindowtext(tic5);|$ohh6:=getwindowtext(tic6);|$ohh7:=getwindowtext(tic7);|$ohh8:=getwindowtext(tic8);|$ohh9:=getwindowtext(tic9);|if strupper($ohh1)='X' then|begin|if strupper($ohh2)='X' then|begin|if strupper($ohh3)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh1)='X' then|begin|if strupper($ohh4)='X' then|begin|if strupper($ohh7)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh1)='X' then|begin|if strupper($ohh5)='X' then|begin|if strupper($ohh9)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh2)='X' then|begin|if strupper($ohh5)='X' then|begin|if strupper($ohh8)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh3)='X' then|begin|if strupper($ohh6)='X' then|begin|if strupper($ohh9)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh4)='X' then|begin|if strupper($ohh5)='X' then|begin|if strupper($ohh6)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh7)='X' then|begin|if strupper($ohh8)='X' then|begin|if strupper($ohh9)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh3)='X' then|begin|if strupper($ohh5)='X' then|begin|if strupper($ohh7)='X' then|begin|command('/runscript [tictac] xfiles');|end;|end;|end;|if strupper($ohh1)='O' then|begin|if strupper($ohh2)='O' then|begin|if strupper($ohh3)='O' then|begin|command('/runscript [tictac] ofiles');|end;|end;|end;|if strupper($ohh1)='O' then|begin|if strupper($ohh4)='O' then|begin|if strupper($ohh7)='O' then|begin|command('/runscript [tictac] Ofiles');|end;|end;|end;|if strupper($ohh1)='O' then|begin|if strupper($ohh5)='O' then|begin|if strupper($ohh9)='O' then|begin|command('/runscript [tictac] Ofiles');|end;|end;|end;|if strupper($ohh2)='O' then|begin|if strupper($ohh5)='O' then|begin|if strupper($ohh8)='O' then|begin|command('/runscript [tictac] Ofiles');|end;|end;|end;|if strupper($ohh3)='O' then|begin|if strupper($ohh6)='O' then|begin|if strupper($ohh9)='O' then|begin|command('/runscript [tictac] Ofiles');|end;|end;|end;|if strupper($ohh4)='O' then|begin|if strupper($ohh5)='O' then|begin|if strupper($ohh6)='O' then|begin|command('/runscript [tictac] Ofiles');|end;|end;|end;|if strupper($ohh7)='O' then|begin|if strupper($ohh8)='O' then|begin|if strupper($ohh9)='O' then|begin|command('/runscript [tictac] Ofiles');|end;|end;|end;|if strupper($ohh3)='O' then|begin|if strupper($ohh5)='O' then|begin|if strupper($ohh7)='O' then|begin|command('/runscript [tictac] Ofiles');|end;|end;|end;|end;|if strupper($ticyikes)='LOTUS456' then|begin|$ohh1:='';|$ohh2:='';|$ohh3:='';|$ohh4:='';|$ohh5:='';|$ohh6:='';|$ohh7:='';|$ohh8:='';|$ohh9:='';|$ohh1:=getwindowtext(tic1);|$ohh2:=getwindowtext(tic2);|$ohh3:=getwindowtext(tic3);|$ohh4:=getwindowtext(tic4);|$ohh5:=getwindowtext(tic5);|$ohh6:=getwindowtext(tic6);|$ohh7:=getwindowtext(tic7);|$ohh8:=getwindowtext(tic8);|$ohh9:=getwindowtext(tic9);|turnturnx:=0;|turnturno:=0;|if strupper($ohh1)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh2)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh3)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh4)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh5)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh6)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh7)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh8)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh9)='O' then|begin|turnturno:=turnturno+1;|end;|if strupper($ohh1)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh2)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh3)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh4)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh5)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh6)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh7)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh8)='X' then|begin|turnturnx:=turnturnx+1;|end;|if strupper($ohh9)='X' then|begin|turnturnx:=turnturnx+1;|end;|if turnturnx = turnturno then|begin|setwindowtext(waht,'Xs turn!');|end;|if turnturnx > turnturno then|begin|setwindowtext(waht,'Os turn!');|end;|end;|if strupper($ticyikes)='LOTUS789' then |begin|$ohh1:='';|$ohh2:='';|$ohh3:='';|$ohh4:='';|$ohh5:='';|$ohh6:='';|$ohh7:='';|$ohh8:='';|$ohh9:='';|$ohh1:=getwindowtext(tic1);|$ohh2:=getwindowtext(tic2);|$ohh3:=getwindowtext(tic3);|$ohh4:=getwindowtext(tic4);|$ohh5:=getwindowtext(tic5);|$ohh6:=getwindowtext(tic6);|$ohh7:=getwindowtext(tic7);|$ohh8:=getwindowtext(tic8);|$ohh9:=getwindowtext(tic9);|mmm1:=23;|mmm2:=23;|mmm3:=23;|mmm4:=23;|mmm5:=23;|mmm6:=23;|mmm7:=23;|mmm8:=23;|mmm9:=23;|if strupper($ohh1)='' then |begin|mmm1:=18;|end;|if strupper($ohh2)='' then |begin|mmm2:=18;|end;|if strupper($ohh3)='' then |begin|mmm3:=18;|end;|if strupper($ohh4)='' then |begin|mmm4:=18;|end;|if strupper($ohh5)='' then |begin|mmm5:=18;|end;|if strupper($ohh6)='' then |begin|mmm6:=18;|end;|if strupper($ohh7)='' then |begin|mmm7:=18;|end;|if strupper($ohh8)='' then |begin|mmm8:=18;|end;|if strupper($ohh9)='' then |begin|mmm9:=18;|end;|if mmm1<>18 then|begin|if mmm2<>18 then|begin|if mmm3<>18 then|begin|if mmm4<>18 then|begin|if mmm5<>18 then|begin|if mmm6<>18 then|begin|if mmm7<>18 then|begin|if mmm8<>18 then|begin|if mmm9<>18 then|begin|waht2:=creategadget(gameday,4,5,148,181,21);|setwindowtext(waht2,'Tie! Now click here to play again!');|setevent(waht2,1,'/runscript [tictac] newsgroups');|end;|end;|end;|end;|end;|end;|end;|end;|end;|end;
[TOGGLES]:{Test file output}|if StrUpper($1)='CREATE' then|begin| Design:=CreateWindow('Edge20 Pirch Toggle Menu',129,8,433,433);| SetWindowAttr(Design,12,1);| Label1:=CreateGadget(Design,1,0,95,61,20);| SetWindowText(Label1,'TimeStamps');| SetWindowAttr(Label1,1,16777215);| Button1:=CreateGadget(Design,4,64,96,24,19);| SetWindowText(Button1,'On');| SetEvent(Button1,1,'/SET TIMESTAMPS ON');| Button2:=CreateGadget(Design,4,88,96,55,19);| SetWindowText(Button2,'Off');| SetEvent(Button2,1,'/SET TIMESTAMPS OFF');| Label3:=CreateGadget(Design,1,0,39,61,19);| SetWindowText(Label3,'Ctcp');| SetWindowAttr(Label3,1,16777215);| Label4:=CreateGadget(Design,1,0,58,61,19);| SetWindowText(Label4,'Protect List');| SetWindowAttr(Label4,1,16777215);| Label5:=CreateGadget(Design,1,0,77,61,19);| SetWindowText(Label5,'Ignore');| SetWindowAttr(Label5,1,16777215);| Button5:=CreateGadget(Design,4,64,39,24,19);| SetWindowText(Button5,'On');| SetEvent(Button5,1,'/set ctcp on');| Button6:=CreateGadget(Design,4,88,39,55,19);| SetWindowText(Button6,'Off');| SetEvent(Button6,1,'/set ctcp off');| Button7:=CreateGadget(Design,4,64,58,24,20);| SetWindowText(Button7,'On');| SetEvent(Button7,1,'/set protect on');| Button8:=CreateGadget(Design,4,88,58,55,20);| SetWindowText(Button8,'Off');| SetEvent(Button8,1,'/set protect off');| Button9:=CreateGadget(Design,4,88,78,55,18);| SetWindowText(Button9,'Off');| SetEvent(Button9,1,'/set ignore off');| Button10:=CreateGadget(Design,4,64,78,24,18);| SetWindowText(Button10,'On');| SetEvent(Button10,1,'/set ignore on');| Label6:=CreateGadget(Design,1,148,98,192,13);| SetWindowText(Label6,'shows/hides message/event timestamps');| Label9:=CreateGadget(Design,1,148,40,174,13);| SetWindowText(Label9,'enables/disables the CTCP protocol');| Label10:=CreateGadget(Design,1,148,61,149,11);| SetWindowText(Label10,'enables/disables the protect list');| Label11:=CreateGadget(Design,1,147,78,145,13);| SetWindowText(Label11,'enables/disables the ignore list');| Label12:=CreateGadget(Design,1,0,115,61,21);| SetWindowText(Label12,'Sound');| SetWindowAttr(Label12,1,16777215);| Button11:=CreateGadget(Design,4,64,115,24,20);| SetWindowText(Button11,'On');| SetEvent(Button11,1,'/set sound on');| Button12:=CreateGadget(Design,4,88,115,55,20);| SetWindowText(Button12,'Off');| SetEvent(Button12,1,'/set sound off');| Button13:=CreateGadget(Design,4,88,135,55,22);| SetWindowText(Button13,'Off');| SetEvent(Button13,1,'/SET AUTOMIN OFF');| Button14:=CreateGadget(Design,4,64,135,24,22);| SetWindowText(Button14,'On');| SetEvent(Button14,1,'/SET AUTOMIN ON');| Label13:=CreateGadget(Design,1,0,136,61,20);| SetWindowText(Label13,'Automin');| SetWindowAttr(Label13,1,16777215);| Label14:=CreateGadget(Design,1,0,156,61,18);| SetWindowText(Label14,'Chanlist');| SetWindowAttr(Label14,1,16777215);| Label15:=CreateGadget(Design,1,148,139,232,13);| SetWindowText(Label15,'determines whether new msg windows will be min');| Label16:=CreateGadget(Design,1,147,118,265,13);| SetWindowText(Label16,'enables/disables playing of media for /sound commands');| Button15:=CreateGadget(Design,4,64,157,24,18);| SetWindowText(Button15,'On');| SetEvent(Button15,1,'/set chanlist ON');| Button16:=CreateGadget(Design,4,88,157,55,18);| SetWindowText(Button16,'Off');| SetEvent(Button16,1,'/set chanlist OFF');| Label17:=CreateGadget(Design,1,148,159,267,13);| SetWindowText(Label17,'shows/hides the channel list in the server/status window');| Label18:=CreateGadget(Design,1,0,173,61,18);| SetWindowText(Label18,'Flood');| SetWindowAttr(Label18,1,16777215);| Label19:=CreateGadget(Design,1,0,191,61,21);| SetWindowText(Label19,'Events');| SetWindowAttr(Label19,1,16777215);| Label20:=CreateGadget(Design,1,0,212,61,19);| SetWindowText(Label20,'Autoop');| SetWindowAttr(Label20,1,16777215);| Label21:=CreateGadget(Design,1,0,231,61,20);| SetWindowText(Label21,'Cmdbar');| SetWindowAttr(Label21,1,16777215);| Label22:=CreateGadget(Design,1,0,251,61,19);| SetWindowText(Label22,'Chanlist');| SetWindowAttr(Label22,1,16777215);| Label23:=CreateGadget(Design,1,0,270,61,18);| SetWindowText(Label23,'Headers');| SetWindowAttr(Label23,1,16777215);| Label25:=CreateGadget(Design,1,0,306,61,20);| SetWindowText(Label25,'Logs');| SetWindowAttr(Label25,1,16777215);| Label26:=CreateGadget(Design,1,0,325,61,21);| SetWindowText(Label26,'Nopopup');| SetWindowAttr(Label26,1,16777215);| Label27:=CreateGadget(Design,1,0,346,61,18);| SetWindowText(Label27,'Notify ');| SetWindowAttr(Label27,1,16777215);| Label28:=CreateGadget(Design,1,0,364,61,19);| SetWindowText(Label28,'Statusbar ');| SetWindowAttr(Label28,1,16777215);| Label29:=CreateGadget(Design,1,0,383,61,17);| SetWindowText(Label29,'Tabs');| SetWindowAttr(Label29,1,16777215);| Label30:=CreateGadget(Design,1,0,288,61,18);| SetWindowText(Label30,'Tag');| SetWindowAttr(Label30,1,16777215);| Button17:=CreateGadget(Design,4,64,175,24,18);| SetWindowText(Button17,'On');| SetEvent(Button17,1,'/SET FLOOD ON ');| Button18:=CreateGadget(Design,4,88,175,55,18);| SetWindowText(Button18,'Off');| SetEvent(Button18,1,'/SET FLOOD OFF ');| Button19:=CreateGadget(Design,4,64,193,24,20);| SetWindowText(Button19,'On');| SetEvent(Button19,1,'/SET EVENTS ON');| Button20:=CreateGadget(Design,4,88,193,55,20);| SetWindowText(Button20,'Off');| SetEvent(Button20,1,'/SET EVENTS OFF');| Button21:=CreateGadget(Design,4,64,213,24,18);| SetWindowText(Button21,'On');| SetEvent(Button21,1,'/SET AUTOOP ON');| Button22:=CreateGadget(Design,4,88,213,55,18);| SetWindowText(Button22,'Off');| SetEvent(Button22,1,'/SET AUTOOP OFF');| Button23:=CreateGadget(Design,4,88,271,55,19);| SetWindowText(Button23,'Off');| SetEvent(Button23,1,'/SET HEADERS OFF ');| Button24:=CreateGadget(Design,4,88,252,55,19);| SetWindowText(Button24,'Off');| SetEvent(Button24,1,'/set chanlist OFF ');| Button25:=CreateGadget(Design,4,88,231,55,21);| SetWindowText(Button25,'Off');| SetEvent(Button25,1,'/SET CMDBAR OFF');| Button26:=CreateGadget(Design,4,64,290,24,20);| SetWindowText(Button26,'On');| SetEvent(Button26,1,'/SET TAG ON');| Button27:=CreateGadget(Design,4,64,383,24,18);| SetWindowText(Button27,'On');| SetEvent(Button27,1,'/SET TABS ON');| Button28:=CreateGadget(Design,4,64,365,24,18);| SetWindowText(Button28,'On');| SetEvent(Button28,1,'/SET STATUSBAR ON ');| Button29:=CreateGadget(Design,4,64,347,24,18);| SetWindowText(Button29,'On');| SetEvent(Button29,1,'/SET NOTIFY ON');| Button30:=CreateGadget(Design,4,64,329,24,18);| SetWindowText(Button30,'On');| SetEvent(Button30,1,'/SET NOPOPUP ON');| Button31:=CreateGadget(Design,4,64,310,24,19);| SetWindowText(Button31,'On');| SetEvent(Button31,1,'/SET LOGS ON');| Button33:=CreateGadget(Design,4,64,271,24,19);| SetWindowText(Button33,'On');| SetEvent(Button33,1,'/SET HEADERS ON');| Button34:=CreateGadget(Design,4,64,252,24,19);| SetWindowText(Button34,'On');| SetEvent(Button34,1,'/set chanlist ON');| Button35:=CreateGadget(Design,4,64,231,24,21);| SetWindowText(Button35,'On');| SetEvent(Button35,1,'/SET CMDBAR ON');| Button36:=CreateGadget(Design,4,88,347,55,18);| SetWindowText(Button36,'Off');| SetEvent(Button36,1,'/SET NOTIFY OFF');| Button37:=CreateGadget(Design,4,88,365,55,18);| SetWindowText(Button37,'Off');| SetEvent(Button37,1,'/SET STATUSBAR OFF ');| Button38:=CreateGadget(Design,4,88,383,55,18);| SetWindowText(Button38,'Off');| SetEvent(Button38,1,'/SET TABS OFF');| Button39:=CreateGadget(Design,4,88,310,55,19);| SetWindowText(Button39,'Off');| SetEvent(Button39,1,'/SET LOGS OFF');| Button41:=CreateGadget(Design,4,88,290,55,20);| SetWindowText(Button41,'Off');| SetEvent(Button41,1,'/SET TAG OFF');| Button42:=CreateGadget(Design,4,88,329,55,18);| SetWindowText(Button42,'Off');| SetEvent(Button42,1,'/SET NOPOPUP OFF ');| Label31:=CreateGadget(Design,1,145,235,262,11);| SetWindowText(Label31,' shows/hides the command bar in the server/status win');| Label32:=CreateGadget(Design,1,148,215,149,12);| SetWindowText(Label32,'enables/disables the autoop list');| Label33:=CreateGadget(Design,1,148,176,186,13);| SetWindowText(Label33,'enables/disables outgoing flood control');| Label34:=CreateGadget(Design,1,149,195,134,13);| SetWindowText(Label34,'enables/disables the events');| Label35:=CreateGadget(Design,1,148,254,248,13);| SetWindowText(Label35,'shows/hides the channel list in the server/status win');| Label36:=CreateGadget(Design,1,148,274,233,13);| SetWindowText(Label36,'shows/hides the headers in the server/status win');| Label38:=CreateGadget(Design,1,149,312,222,13);| SetWindowText(Label38,'enables/disables logging for the active window');| Label39:=CreateGadget(Design,1,149,331,171,13);| SetWindowText(Label39,'sets the no message interrupt option');| Label40:=CreateGadget(Design,1,149,349,141,13);| SetWindowText(Label40,'enables/disables the notify list');| Label41:=CreateGadget(Design,1,150,367,197,13);| SetWindowText(Label41,'shows/hides the statusbar in the main win');| Label42:=CreateGadget(Design,1,150,385,213,13);| SetWindowText(Label42,'shows/hides the window tabs in the main win');| Label43:=CreateGadget(Design,1,150,293,270,13);| SetWindowText(Label43,'shows/hides the network id tag for channel/message win');| Label8:=CreateGadget(Design,1,123,10,148,13);| SetWindowText(Label8,'Edge 20 Pirch Toggle Manager');| SetWindowAttr(Label8,1,0);| SetWindowAttr(Label8,2,65535);|end;|if strupper($cmd) = 'CLOSE' then| begin| Design:= 0;| writeln(\1,'Toggles Closed ');|halt;| end;
[TOPIC]:{the only thing you may need to edit is the directory for your favorite topic txt. included is 1liners.txt (my fav for topics)... |usage /runscript [topic] ... or better yet.. /timer topic -1 250 /runscript [topic] .. ill be editing more in the future}|$oldtopic := $topic;|$filename := 'c:\edge\text\1liners.txt';|nothing := fileread($filename,0,$newtopic);| if ($newtopic <> $oldtopic) then| begin| command('/topic ',' ',$audience,' ', $newtopic)| end;
[TRACE]:{ CLIENT TRACE: Traces a client and monitors channels and nick changes|Version: 1.0|Date : 12/17/96|Author : RB_on_Ice|Function: This PIL keeps a list box of Client Info by doing a /whois command on 15 second|intervals. It tracks nick changes while the client remains connected.|;|Install:|1. Copy this entire file and paste in an alias PIL called: [TRACE]|;|2. Create a normal called TRACE and add the following line|;| /runscript [TRACE] start $1|;|3. To run type: /trace NICK|}|$cmd := $1;|if $cmd = 'start' then|begin| $whost := 'x';| if $traceactive = '1' then| begin| command('/display > ',$host,' ',\9,'TRACE IS ALREADY ACTIVE');| halt;| end;| $selnick := $2;| lpos := strtoint($3);| if lpos < 1 then| lpos := 50;| command('/define traceactive=1');| command('/display > ',$host,' ',\8,'CLIENT TRACE STARTED on: '+$selnick);| { command('/define tracenick=',$selnick); }| TRACEWIN := createwindow('CLIENT TRACE',lpos,45,260,180); | chlist := creategadget(TRACEWIN,7,2,26,250,130);| setevent(TRACEWIN,1,'/runscript [TRACE] close');| setwindowtext(olcontrol,'WHOIS');| slabel := creategadget(TRACEWIN,1,5,6,50,5);| setwindowtext(slabel,'Status:');| statuswin := creategadget(TRACEWIN,2,40,3,70,20);| killbut := creategadget(TRACEWIN,4,180,3,70,20);| setevent(olcontrol,1,'/runscript [TRACE] kill');| setwindowtext(killbut,'KILL');| command('/define tracehost=NULL');| { get initial channels }| command('/callback 301 [TRACE]');| command('/callback 311 [TRACE]');| command('/callback 312 [TRACE]');| command('/callback 313 [TRACE]');| command('/callback 317 [TRACE]');| command('/callback 318 [TRACE]');| command('/callback 319 [TRACE]');| command('/callback 401 [TRACE]');| command('/timer tracetimer -1 15 /runscript [TRACE] update');| command('/whois ',$selnick);|end|else|begin| if $cmd = 'update' then| begin| setwindowtext(statuswin,'UPDATING');| command('/callback 301 [TRACE]');| command('/callback 311 [TRACE]');| command('/callback 312 [TRACE]');| command('/callback 313 [TRACE]');| command('/callback 317 [TRACE]');| command('/callback 318 [TRACE]');| command('/callback 319 [TRACE]');| command('/callback 401 [TRACE]');| command('/whois ',$selnick);| end;| if $cmd = 'close' OR $cmd = 'end' then| begin| command('/callback -d 301 ');| command('/callback -d 311 ');| command('/callback -d 312 ');| command('/callback -d 313 ');| command('/callback -d 317 ');| command('/callback -d 318 ');| command('/callback -d 319 '); | command('/callback -d 401 ');| command('/timer tracetimer die');| command('/define traceactive=0');| $selhost := 'NULL';| command('/display ',\7,'TRACE CLIENT TERMINATED');| halt;| end;| $s := *1;| $s1 := strtoken($s); {strip off server name or ctcp nick name}| $cmd := strtoken($s);| if $cmd = '319' then| begin| { WHOIS CHANNEL LINE }| index := listappend(chlist,'CHANNELS: ');| strdel($s,1,strpos(':',$s));| while strlen($s) > 0 do| begin| $s1 := strtoken($s);| index := listappend(chlist,' ' + $s1);| end;| end| else if $cmd = '311' then| begin| { WHOIS USER - FIRST MESSAGE }| listclear(chlist);| index := listappend(chlist,'NICK = ' + $selnick);| $s := *5;| $wuser := strtoken($s);| $s := *6;| $whost := strtoken($s);| $userhost := $wuser + '@' + $whost;| index := listappend(chlist,'MASK = ' + $userhost);| end| else if $cmd = '318' then| begin| { END OF WHOIS }| setwindowtext(statuswin,'');| command('/callback -d 301 ');| command('/callback -d 311 ');| command('/callback -d 312 ');| command('/callback -d 313 ');| command('/callback -d 317 ');| command('/callback -d 318 ');| command('/callback -d 319 ');| command('/callback -d 401 ');| end| else if $cmd = '312' then| begin| { IS SERVER }| $s := *5;| $wserver := strtoken($s);| index := listappend(chlist,'SERVER = ' + $wserver);| end| else if $cmd = '313' then| begin| { IS OPERATOR }| end| else if $cmd = '317' then| begin| { IS IDLE }| $s := *5;| $isecs := strtoken($s);| index := listappend(chlist,'IDLE = ' + $isecs + ' seconds');| end| else if $cmd = '301' then| begin| $s := *1;| $s1 := strtoken($s);| strdel($s,1,strpos(':',$s));| index := listappend(chlist,' ');| index := listappend(chlist,'AWAY = '+$s);| end| else if $cmd = '352' then| begin| { WHO REPLY }| $s := *5;| $uname := strtoken($s);| if $uname = $wuser then| begin| $s := *8;| $unick := strtoken($s);| command('/display > ',$host,' ',\1,' CHANGED NICK: ',$oldnick,' >> ',$unick);| $selnick := $unick;| end| end| else if $cmd = '315' then| begin| { END OF WHO }| command('/callback -d 352');| command('/callback -d 315');| if $selnick = 'NICK CHANGED' then| begin| command('/display > ',$host,' ',\1,'TRACE LOST, USER LEFT IRC');| destroywindow(TRACEWIN);| halt;| end| else| begin| command('/runscript [TRACE] update'); | end| end| else if $cmd = '401' then| begin| if strlen($whost) < 2 then| begin| command('/display > ',$host,' ',\1,' NOT ON IRC - ',$selnick);| destroywindow(TRACEWIN);| end;| if strlen($whost) > 1 then| begin| command('/display > ',$host,' ',\1,'LOST: ',$selnick,' ... CHECKING HOST: ',$whost );| command('/callback 315 [TRACE]');| command('/callback 352 [TRACE]');| $oldnick := $selnick;| $selnick := 'NICK CHANGED';| command('/who *',$whost);| end| end| |end;
[ULIST]:{Usage: Add the following alias called UWHO|-----------------------------------------|/runscript [ulist] create|-----------------------------------------|then type /ulist|}|$cmd := $1;|if $cmd = 'create' then|begin| if winid <> 0 then | begin| writeln(char(15),'ULIST window already open');| writeln('-');| halt;| end;| winid := createwindow('Undernet Channel Lister',50,90,279,150);| setevent(winid,1,'/runscript [ulist] close');| control := creategadget(winid,1,5,8,50,18);| $s := 'Minimum Maximum';| for i := 0 to 1 do| begin| $label := strtoken($s);| control := creategadget(winid, 1, 162 + (i * 50), 10, 50, 20);| setwindowtext(control,$label);| end;| $editcontrols := '';| $s := 'Channelámemberácount ChanneláAgeá(minutes) ChanneláTopicáAgeá(minutes)';| for i := 0 to 2 do| begin| $label := strtoken($s);| control := creategadget(winid,1,10,33+(20 * i),80,21);| setwindowtext(control,$label);| for k := 0 to 1 do| begin| control := creategadget(winid, 2, 160 + (k * 50), 30 + (20 * i) ,50, 20);| $editcontrols := $editcontrols + inttostr(control)+' ';| end;| end;| statuspanel := creategadget(winid,10,0,100,300,25);| setwindowattr(statuspanel,3,2);| $s := 'O&K C&lear &Cancel';| $commands := 'ok clear cancel';| w := 90;| for i := 0 to 2 do| begin| $label := strtoken($s);| control := creategadget(statuspanel, 4, 1+(i * w-2), 1, w, 20);| setwindowtext(control,$label);| setevent(control,1,'/runscript [ulist] '+strtoken($commands));| end;|end|else if $cmd = 'ok' then|begin| $s := '> < C> C< T> T<';| $command := '';| $controls := $editcontrols;| for i := 1 to 6 do| begin| $param := strtoken($s);| $entry := getwindowtext(strtoint(strtoken($controls)));| if $entry <> '' then| begin| if strlen($command) > 0 then | $command := $command+',';| $command := $command + $param + $entry;| end;| end;| if $command = '' then $command := '>1';| command('/verbose LIST ',$command);| if winid <> 0 then destroywindow(winid);|end|else if $cmd = 'cancel' then|begin| if winid <> 0 then destroywindow(winid);|end|else if $cmd = 'close' then|begin| winid := 0;| $editcontrols := '';|end|else if $cmd = 'clear' then|begin| $controls := $editcontrols;| while strlen($controls) > 0 do| setwindowtext(strtoint(strtoken($controls)),'');|end;
[USERS]:{|USERS v. 1 ======written by MtnMan====== displays all current members of the channel to you (for logging, etc)|Usage:/runscript [USERS] |}|$s := '';|k := strtoint($members);|for i := 1 to k do|begin| $thisnick := nicklist($audience,i); | begin| if strlen($s) > 0 then| $s := $s + ', ';| $s := $s + $thisnick; | end;|end;|if strlen($s) > 0 then|begin| command('/display > ',$audience,' ',\16,\5,'Members in ',$audience,' at ',$time,': ',\5,'( ',$s,' )');|end;
[UWHO]:{Usage: Add the following alias called UWHO|-----------------------------------------|/runscript [uwho] create $1|-----------------------------------------|then type /uwho [optionalnick]|required event: ON CTCPREPLY:*:/runscript [uwho] $nick *1:-|This version doesnt keep a database of persons, but would be easy enough to add.|Something for those that like to play around to finish up.|}|$cmd := $1;|if $cmd = 'create' then|begin| $uwhoname := $2;| winid := createwindow('PIRCH User Information Window',25,90,498,224);| control := creategadget(winid,1,5,8,50,18);| setevent(winid,1,'/runscript [uwho] close');| setwindowtext(control,'User: ');| nickcombobox := creategadget(winid,8,40,5,200,185);| setwindowtext(nickcombobox,$uwhoname);| channellistbox := creategadget(winid,7,390,30,100,148);| whoispane := creategadget(winid,13,1,30,387,148);| { close } | control := creategadget(winid,4,400,5,70,20);| setevent(control,1,'/runscript [uwho] clear');| setwindowtext(control,'Clear list');| { Set up the buttons }| $labels := '&Whois &Ping &Version &Userinfo &ClientInfo &Finger &Time';| $commands := 'whois ping version userinfo clientinfo finger time clear';| for i := 0 to 6 do| begin| control := creategadget(winid,4,(70*i),180,70,20);| setevent(control,1,'/runscript [uwho] '+strtoken($commands));| setwindowtext(control,strtoken($Labels));| end;| $s := '';| count := strtoint(iniread('uwho.ini','nicknames','nickcount','0'));| for i := 1 to count do| begin| $name := iniread('uwho.ini','nicknames','nick'+inttostr(i),'');| if $name <> '' then| begin| index := listsearch(nickcombobox,$name);| if index = 0 then| index := listappend(nickcombobox,$name);| end;| end;| if $uwhoname <> '' then| command('/runscript [uwho] whois');|end|else if $cmd = 'clear' then|begin| listclear(nickcombobox);|end|else if $cmd = 'whois' then|begin| $name := getwindowtext(nickcombobox);| if $name <> '' then| begin| index := listsearch(nickcombobox,$name);| if index = 0 then| index := listappend(nickcombobox,$name);| if $uwhoname <> $name then| listclear(channelpane);| listclear(whoispane);| index := listappend(whoispane,' '+\5+'Please wait... '+\5);| command('/callback 301 [uwho]');| command('/callback 311 [uwho]');| command('/callback 319 [uwho]');| command('/callback 312 [uwho]');| command('/callback 313 [uwho]');| command('/callback 317 [uwho]');| command('/callback 318 [uwho]');| command('/callback 401 [uwho]');| command('/whois ',$name);| end;|end|else if $cmd = 'close' then|begin| $s := '';| count := listcount(nickcombobox);| for i := 1 to count do| begin| $s := listget(nickcombobox,i);| command('/writeini uwho.ini nicknames nick'+inttostr(i)+' '+$s);| end;| command('/writeini uwho.ini nicknames nickcount '+inttostr(count));|end|else if ($cmd = 'ping') or ($cmd = 'version') or ($cmd = 'userinfo') or ($cmd = 'clientinfo') or ($cmd = 'time') or ($cmd = 'finger') then|begin| $name := getwindowtext(nickcombobox);| if $name <> '' then| begin| index := listsearch(nickcombobox,$name);| if index = 0 then| index := listappend(nickcombobox,$name);| if $uwhoname <> $name then| begin| listclear(whoispane);| listclear(channelpane);| end;| | $uwhoname := $name;| command('/ctcp ',$name,' ',$cmd);| end;| if $uwhoname <> $name then| begin| listclear(whoispane);| listclear(channelpane); | end; |end|else|begin| $s := *1;| $s1 := strtoken($s); {strip off server name or ctcp nick name}| if strupper($s1) = strupper($uwhoname) then| begin| $s1 := strtoken($s);| if $s1 = 'PING' then| begin| $cmd :=
[VN1]:{|this is Budman and Aixa's VerticalNick1 pil|******************************************|useage |********* |popup VN1:/runscript [VN1] $?="text or nick 9 characters maximum"|alias VN1 and insert into alias VN1 /runscript [VN1] *1|******************************************************************************|need help find us here|#popups_for_fun neato.org:6667|#KoachsArtShop MIC1.microsoft.com:6667|********************************************************|}|$targeta :='';|$targetb :='';|$targetc :='';|$targetd :='';|$targete :='';|$targetf :='';|$targetg :='';|$targeth :='';|$targeti :='';|$targetj :='';|$targetk :='';|$targetl :='';|$targetm :='';|$targetn :='';|$targeto :='';|$target2a :='';|$target2b :='';|$target2c :='';|$target2d :='';|$target2e :='';|$target2f :='';|$target2g :='';|$target2h :='';|$target2i :='';|$target2j :='';|$target2k :='';|$target2l :='';|$target2m :='';|$target2n :='';|$target2o :='';|$target3a :='';|$target3o :='';|$chan:=$activewin|$source := $1 ;|if strlen($source) =1 then|$source:=' '+$source+' ';|if strlen($source) =2 then|$source:=' '+$source+' ';|if strlen($source) =3 then|$source:=' '+$source+' ';|if strlen($source) =4 then|$source:=' '+$source+' ';|if strlen($source) =5 then|$source:=' '+$source+' ';|if strlen($source) =6 then|$source:=' '+$source+' ';|if strlen($source) =7 then|$source:=' '+$source+' ';|if strlen($source) =8 then|$source:=''+$source+' ';|if strlen($source) =9 then|$source:=''+$source+'';|i:=1;|while i<(strlen($source)+1) do|begin|$targeta := $targeta + '1,1.........0HELLO1.........';|$targetb := $targetb + '1,1.6,6.....................1,1.';|$targetc := $targetc + '1,1.6,6......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐6,6......1,1.';|$target2a := $target2a + '1,1.........13HELLO1........';|$target2b := $target2b + '13,13.....................1,1';|$target2c := $target2c + '13,13......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐13,13......1,1';|$targetm := $targetm + '1,1.6,6......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐6,6......1,1.';|$targetn := $targetn + '1,1.6,6.....................1,1.';|$targeto := $targeto + '1,1.........13HELLO1.........';|$target2m := $target2m + '13,13......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐13,13......1,1';|$target2n := $target2n + '13,13.....................1,1';|$target2o := $target2o + '1,1........0HELLO1........';|$target3a := $target3a + '1,1.........0HELLO1.........';|$target3o := $target3o + '1,1.........13HELLO1.........';|if i<(strlen($source)+1) then|begin| $targetd := '1,1.6,6.....1,8⌐1,12«1,7«1,9⌐4,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐6,6.....1,1.';| $target2d := '13,13.....1,8⌐1,12«1,7«1,9⌐4,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐13,13.....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targete := '1,1.6,6....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐6,6....1,1.';| $target2e := '13,13....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐13,13....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetf := '1,1.6,6...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐12,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6...1,1.';| $target2f := '13,13...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐12,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13...1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetg := '1,1.6,6..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«7,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6..1,1.';| $target2g := '13,13..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«7,0 '+StrCopy($source,i,1)+' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13..1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targeth := '1,1.6,6.1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«1,15⌐9,0 '+StrCopy($source,i,1)+ ' 1,15⌐1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6.1,1.';| $target2h := '13,13.1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«1,15⌐9,0 '+StrCopy($source,i,1)+ ' 1,15⌐1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13.1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targeti := '1,1.6,6..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«4,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6..1,1.';| $target2i := '13,13..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«4,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13..1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetj := '1,1.6,6...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐13,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6...1,1.';| $target2j := '13,13...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐13,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13...1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetk := '1,1.6,6....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐6,6....1,1.';| $target2k := '13,13....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐13,13....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetl := '1,1.6,6.....1,8⌐1,12«1,7«1,9⌐12,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐6,6.....1,1.';| $target2l := '13,13.....1,8⌐1,12«1,7«1,9⌐12,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐13,13.....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin|writeln('invalid length 9 characters maximum');|halt;|end;|command('/msg ',$chan,' ',$targeta);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetb);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetc);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetd);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targete);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetf);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetg);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targeth);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targeti);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetj);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetk);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetl);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetm);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targetn);|for s := 1 to 30000 do breathe;|command('/msg ',$chan,' ',$targeto);|end
[VN2]:{|this is Budman and Aixa's VerticalNick2 pil|******************************************|useage |********* |popup VN2:/runscript [VN2] $?="text or nick 9 characters maximum"|alias VN2 and insert into alias VN2 /runscript [VN2] *1|******************************************************************************|need help find us here|#popups_for_fun neato.org:6667|#KoachsArtShop MIC1.microsoft.com:6667|********************************************************|}|$targeta :='';|$targetb :='';|$targetc :='';|$targetd :='';|$targete :='';|$targetf :='';|$targetg :='';|$targeth :='';|$targeti :='';|$targetj :='';|$targetk :='';|$targetl :='';|$targetm :='';|$targetn :='';|$targeto :='';|$target2a :='';|$target2b :='';|$target2c :='';|$target2d :='';|$target2e :='';|$target2f :='';|$target2g :='';|$target2h :='';|$target2i :='';|$target2j :='';|$target2k :='';|$target2l :='';|$target2m :='';|$target2n :='';|$target2o :='';|$target3a :='';|$target3o :='';|$chan:=$activewin|$source := $1 ;|if strlen($source) =1 then|$source:=' '+$source+' ';|if strlen($source) =2 then|$source:=' '+$source+' ';|if strlen($source) =3 then|$source:=' '+$source+' ';|if strlen($source) =4 then|$source:=' '+$source+' ';|if strlen($source) =5 then|$source:=' '+$source+' ';|if strlen($source) =6 then|$source:=' '+$source+' ';|if strlen($source) =7 then|$source:=' '+$source+' ';|if strlen($source) =8 then|$source:=''+$source+' ';|if strlen($source) =9 then|$source:=''+$source+'';|i:=1;|while i<(strlen($source)+1) do|begin|$targeta := $targeta + '1,1.........0HELLO1........';|$targetb := $targetb + '1,1.6,6.....................1,1.';|$targetc := $targetc + '1,1.6,6......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐6,6......1,1.';|$target2a := $target2a + '1,1.........13HELLO1.........';|$target2b := $target2b + '13,13.....................1,1.';|$target2c := $target2c + '13,13......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐13,13......1,1.';|$targetm := $targetm + '1,1.6,6......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐6,6......1,1.';|$targetn := $targetn + '1,1.6,6.....................1,1.';|$targeto := $targeto + '1,1.........13HELLO1.........';|$target2m := $target2m + '13,13......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐13,13......1,1.';|$target2n := $target2n + '13,13.....................1,1.';|$target2o := $target2o + '1,1........0HELLO1.........';|$target3a := $target3a + '1,1.........0HELLO1.........';|$target3o := $target3o + '1,1.........13HELLO1.........';|if i<(strlen($source)+1) then|begin| $targetd := '1,1.6,6.....1,8⌐1,12«1,7«1,9⌐4,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐6,6.....1,1.';| $target2d := '13,13.....1,8⌐1,12«1,7«1,9⌐4,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐13,13.....1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targete := '1,1.6,6....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐6,6....1,1.';| $target2e := '13,13....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐13,13....1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetf := '1,1.6,6...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐12,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6...1,1.';| $target2f := '13,13...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐12,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13...1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetg := '1,1.6,6..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«7,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6..1,1.';| $target2g := '13,13..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«7,0 '+StrCopy($source,i,1)+' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13..1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targeth := '1,1.6,6.1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«1,15⌐9,0 '+StrCopy($source,i,1)+ ' 1,15⌐1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6.1,1.';| $target2h := '13,13.1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«1,15⌐9,0 '+StrCopy($source,i,1)+ ' 1,15⌐1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13.1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targeti := '1,1.6,6..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«4,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6..1,1.';| $target2i := '13,13..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«4,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13..1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetj := '1,1.6,6...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐13,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6...1,1.';| $target2j := '13,13...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐13,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13...1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetk := '1,1.6,6....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐6,6....1,1.';| $target2k := '13,13....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐13,13....1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetl := '1,1.6,6.....1,8⌐1,12«1,7«1,9⌐12,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐6,6.....1,1.';| $target2l := '13,13.....1,8⌐1,12«1,7«1,9⌐12,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐13,13.....1,1.';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin|writeln('invalid length 9 characters maximum');|halt;|end;|command('/msg ',$chan,' ',$targeta+$target2a);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetb+$target2b);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetc+$target2c);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetd+$target2d);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targete+$target2e);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetf+$target2f);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetg+$target2g);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targeth+$target2h);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targeti+$target2i);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetj+$target2j);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetk+$target2k);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetl+$target2l);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetm+$target2m);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targetn+$target2n);|for s := 1 to 120000 do breathe;|command('/msg ',$chan,' ',$targeto+$target2o);|end
[VN3]:{|this is Budman and Aixa's VerticalNick3 pil|******************************************|useage |********* |popup VN3:/runscript [VN3] $?="text or nick 9 characters maximum"|alias VN3 and insert into alias VN3 /runscript [VN3] *1|******************************************************************************|need help find us here|#popups_for_fun neato.org:6667|#KoachsArtShop MIC1.microsoft.com:6667|********************************************************|}|$targeta :='';|$targetb :='';|$targetc :='';|$targetd :='';|$targete :='';|$targetf :='';|$targetg :='';|$targeth :='';|$targeti :='';|$targetj :='';|$targetk :='';|$targetl :='';|$targetm :='';|$targetn :='';|$targeto :='';|$target2a :='';|$target2b :='';|$target2c :='';|$target2d :='';|$target2e :='';|$target2f :='';|$target2g :='';|$target2h :='';|$target2i :='';|$target2j :='';|$target2k :='';|$target2l :='';|$target2m :='';|$target2n :='';|$target2o :='';|$target3a :='';|$target3o :='';|$chan:=$activewin|$source := $1 ;|if strlen($source) =1 then|$source:=' '+$source+' ';|if strlen($source) =2 then|$source:=' '+$source+' ';|if strlen($source) =3 then|$source:=' '+$source+' ';|if strlen($source) =4 then|$source:=' '+$source+' ';|if strlen($source) =5 then|$source:=' '+$source+' ';|if strlen($source) =6 then|$source:=' '+$source+' ';|if strlen($source) =7 then|$source:=' '+$source+' ';|if strlen($source) =8 then|$source:=''+$source+' ';|if strlen($source) =9 then|$source:=''+$source+'';|i:=1;|while i<(strlen($source)+1) do|begin|$targeta := $targeta + '1,1.........0HELLO1........';|$targetb := $targetb + '1,1.6,6.....................1,1.';|$targetc := $targetc + '1,1.6,6......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐6,6......1,1.';|$target2a := $target2a + '1,1.........13HELLO1........';|$target2b := $target2b + '13,13.....................1,1';|$target2c := $target2c + '13,13......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐13,13......1,1';|$targetm := $targetm + '1,1.6,6......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐6,6......1,1.';|$targetn := $targetn + '1,1.6,6.....................1,1.';|$targeto := $targeto + '1,1.........13HELLO1.........';|$target2m := $target2m + '13,13......1,8⌐1,12«1,8⌐1,7«1,8⌐1,7«1,8⌐1,12«1,8⌐13,13......1,1';|$target2n := $target2n + '13,13.....................1,1';|$target2o := $target2o + '1,1........0HELLO1........';|$target3a := $target3a + '1,1.........0HELLO1.........';|$target3o := $target3o + '1,1.........13HELLO1.........';|if i<(strlen($source)+1) then|begin| $targetd := '1,1.6,6.....1,8⌐1,12«1,7«1,9⌐4,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐6,6.....1,1.';| $target2d := '13,13.....1,8⌐1,12«1,7«1,9⌐4,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐13,13.....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targete := '1,1.6,6....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐6,6....1,1.';| $target2e := '13,13....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐13,13....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetf := '1,1.6,6...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐12,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6...1,1.';| $target2f := '13,13...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐12,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13...1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetg := '1,1.6,6..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«7,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6..1,1.';| $target2g := '13,13..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«7,0 '+StrCopy($source,i,1)+' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13..1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targeth := '1,1.6,6.1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«1,15⌐9,0 '+StrCopy($source,i,1)+ ' 1,15⌐1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6.1,1.';| $target2h := '13,13.1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«1,15⌐9,0 '+StrCopy($source,i,1)+ ' 1,15⌐1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13.1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targeti := '1,1.6,6..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«4,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6..1,1.';| $target2i := '13,13..1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐1,11«4,0 '+StrCopy($source,i,1)+ ' 1,11«1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13..1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetj := '1,1.6,6...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐13,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐6,6...1,1.';| $target2j := '13,13...1,8⌐1,12«1,7«1,9⌐1,4«1,13⌐13,0 '+StrCopy($source,i,1)+ ' 1,13⌐1,4«1,9⌐1,7«1,12«1,8⌐13,13...1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetk := '1,1.6,6....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐6,6....1,1.';| $target2k := '13,13....1,8⌐1,12«1,7«1,9⌐1,4«1,0 '+StrCopy($source,i,1)+ ' 1,4«1,9⌐1,7«1,12«1,8⌐13,13....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin| $targetl := '1,1.6,6.....1,8⌐1,12«1,7«1,9⌐12,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐6,6.....1,1.';| $target2l := '13,13.....1,8⌐1,12«1,7«1,9⌐12,0 '+StrCopy($source,i,1)+ ' 1,9⌐1,7«1,12«1,8⌐13,13.....1,1';| i := i + 1;|end;|if i<(strlen($source)+1) then|begin|writeln('invalid length 9 characters maximum');|halt;|end;|command('/msg ',$chan,' ',$targeta+$target2a+$target3a);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetb+$target2b+$targetb);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetc+$target2c+$targetc);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetd+$target2d+$targetd);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targete+$target2e+$targete);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetf+$target2f+$targetf);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetg+$target2g+$targetg);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targeth+$target2h+$targeth);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targeti+$target2i+$targeti);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetj+$target2j+$targetj);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetk+$target2k+$targetk);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetl+$target2l+$targetl);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetm+$target2m+$targetm);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targetn+$target2n+$targetn);|for s := 1 to 250000 do breathe;|command('/msg ',$chan,' ',$targeto+$target2o+$target3o);|end
[VOICE]:{=== shitlist by lawrd === v1.0 ==================================|This script will deop, then kickban anyone who joins specific|channels. It's designed to keep separate ban lists per channel,|so you won't have to worry about banning someone from every|channel you have ops in.|Please note that you will need to edit the two occurences of|your pirch directory. You probably don't want to use long|filenames for this; it may work but I don't know. If you|experience any problems with this, i am often on EFnet irc|in #plop (nick lawrd or l4rd), or direct your email to|lard@iastate.edu|=== install this =================================================|Aliases:| SHITLIST : /writeini d:\pirch\shitlist.ini # *!*@ $+ *2 ON| /runscript [shitlist] # $1 *2|Events:| 030 : *!*@* : @ON JOIN:#:/runscript [shitlist] # $nick $address|To activate a ban you must be in the channel you wish to set the|ban in. Type the following:|/shitlist <nick> <port.server> (port.server=everything after @| in a /whois)|============= Change this line ===================================}|$voice := 'c:\edge\ini\voice.ini';|{============ Edit if you like ===================================}|$check := '***';|$addr := addressmask($3,3);|begin|$thsusr := iniread($voice,$1,$addr,$check);|if $thsusr = 'ON' then|begin|command('/mode ',$1,' +v ',$2);|end;|end;|{ complete! }
[VOWEL]:{Based on Eliter talker made by bbb 8/18/96}|{made by dot}|{usage /runscript [vowel] <text>}|$lado := '';|$snuggle := *1 ;|bbb:=1;|$cutie:= '';|while bbb<(strlen($snuggle)+1) do|begin| $lado:= strcopy ($snuggle,bbb,1);| bbb:= bbb+1;| if $lado = 'a' then| $lado:= \3+\31+'a'+\31+\3;| if $lado = 'e' then| $lado:= \31+\3+'e'+\3+\31;| if $lado = 'i' then| $lado:= \31+\2+'i'+\2+\31;| if $lado = 'o' then| $lado:= \31+\22+'o'+\22+\31;| if $lado = 'u' then| $lado:= \22+\31+\22+'u'+\22+\31+\22; | $cutie:= $cutie + $lado;|end;|command('/msg ',$audience,' ',$cutie);
[WHO]:{ REDIR_WHOIS: Redirects WHOIS messages to ACTIVE WINDOW|Version: 1.0|Date : 1/5/97|Author : RB_on_Ice modified for who by Kain|;|INSTALL:|1. Copy this entire file and paste in an alias PIL called: [REDIR_WHOIS]|;|2. Create a normal called WI and add the following line|;| /runscript [WHO] start $1|;|3. To run type: /Wo <nick>|}|$cmd := $1;|if $cmd = 'start' then|begin| $selnick := $2;| { setup callbacks }| command('/callback 352 [WHO]');| command('/callback 315 [WHO]');| command('/callback 401 [WHO]');| command('/who ',$selnick);|end|else|begin| $s := *1;| $s1 := strtoken($s); {strip off server name or ctcp nick name}| $cmd := strtoken($s); {grab command RPL code}| $mynick := strtoken($s); {strip off your nick}| if $cmd = '352' then| begin| { WHOIS CHANNEL LINE }| command('/display > ',$activewin,' ',\16,' ',$s);| end|else if $cmd = '315' then| begin| { NO SUCH NICK }| command('/display > ',$activewin,' ',\16,$s);|end|else if $cmd = '401' then| begin| { NO SUCH NICK }| command('/display > ',$activewin,' ',\16,$s);| command('/callback -d 352 ');| command('/callback -d 315 ');| command('/callback -d 401 ');| end| |end;
